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

0 голосов
200 просмотров

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


Информатика (12 баллов) | 200 просмотров
Дан 1 ответ
0 голосов

Program romashka11;
var a,n,s:integer;
begin
write ('введите кол-во лепестков');
readln(n);
if n mod 2 = 0 then write ('не любит') else write ('любит');
end.

(1.4k баллов)