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

Pascal

Question

Фелица

15 июля, 23:20

+4

Ответы (1)

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

Флавия · Answer 1

Var

n:integer;

Begin

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

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

else WriteLn ('Любит')

End.

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