Пантелеймон
5 год назад
Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n.Pascal
ОТВЕТЫ
Степан
Oct 24, 2020
Var
n:integer;
Begin
Write('n = ');ReadLn(n);
if n mod 2 = 0 then WriteLn('Не любит')
else WriteLn('Любит')
End.
n:integer;
Begin
Write('n = ');ReadLn(n);
if n mod 2 = 0 then WriteLn('Не любит')
else WriteLn('Любит')
End.
257
Смежные вопросы:
