Составить программу, определяющую результат гадания на ромашке - 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
СОХРАНИТЬ ССЫЛКУ