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

Pascal

Question

Милий

10 ноября, 13:54

+2

Ответы (1)

Знаете ответ?

Нинелька · Answer 1

Var

n:integer;

Begin

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

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

else WriteLn ('Любит')

End.

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