Составить программу, определяющую результат гадания на ромашке - Turbo Pascal
Формулировка задачи:
Составить программу, определяющую результат гадания на ромашке - "любит - не любит", взяв за исходное данное кол-во лепестков n.
Код к задаче: «Составить программу, определяющую результат гадания на ромашке - Turbo Pascal»
uses crt;
var i,n: byte;
BEGIN
clrscr;
write('Vvedite kol-vo lepestkov: ');
readln(n);
if (i mod 2 = 0) then writeln('Ne Lubit')
else writeln('Lubit');
end;
repeat until keypressed;
END.
10 голосов, оценка 3.700 из 5
СОХРАНИТЬ ССЫЛКУ