Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Написать программу в ПАСКАЛЕ
Пользователь вводит число с клавиатуры. Если оно четное, вывести "Четное", если нечетное, вывести "Нечетное". Если меньше 1, вывести "число неверное, попробуйте ещё раз"

Ответ оставил Гость

Program Z1;
uses crt;
var a,i:integer;
begin
for i:=1 to 5 do {можно вводить 5 чисел подряд}
begin
write(Vvedite chislo -> );readln(a);
if a<1 then writeln(Ne verno, poprobui eshe raz) else
if a mod 2=0 then writeln(-> Chetnoe) else writeln(-> Nechetnoe);
end;
readln;
end.