Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n.

Pascal

Question

Милена

19 января, 13:46

+5

Ответы (1)

Знаете ответ на вопрос?

Пров · Answer 1

Var

n:integer;

Begin

Write ('n = ') ; ReadLn (n) ;

if n mod 2 = 0 then WriteLn ('Не любит')

else WriteLn ('Любит')

End.

Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n.Pascal