Предмет: Информатика,
автор: катюша546
составить программу,определяющую результат гадания на ромашке- любит не любит, взяв за исходное данное количество лепестков n. Составьте алгоритм с ветвлением на языке паскаль
Ответы
Автор ответа:
0
Program romashka11;
var a,n,s:integer;
begin
write ('введите кол-во лепестков');
readln(n);
if n mod 2 = 0 then write ('не любит') else write ('любит');
end.
var a,n,s:integer;
begin
write ('введите кол-во лепестков');
readln(n);
if n mod 2 = 0 then write ('не любит') else write ('любит');
end.
Похожие вопросы
Предмет: Химия,
автор: sebejsid
Предмет: Математика,
автор: ruslanedenkov
Предмет: Русский язык,
автор: ahmadgamel2014
Предмет: Математика,
автор: дуйв
Предмет: Химия,
автор: imskar228