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

Формулировка задачи:

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


textual

Код к задаче: «Составить программу, определяющую результат гадания на ромашке - 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.700 из 5

Источник
Похожие ответы