Предмет: Информатика,
автор: happyCatPro
Даю 35 баллов! Напишите в программе паскаль авс нэт "нахождение четного отрицательного числа"
Пожалуйста!!! Очень нужно!
korsa351:
что программа должна получать? одно число или несколько?
Одно
Но я точно не знаю
" нахождение четного отрицательного числа "
var
a:integer;
begin
readln(a);
if (a<0) and (a mod 2 = 0) then writeln('Yes')
else writeln('No')
end.
a:integer;
begin
readln(a);
if (a<0) and (a mod 2 = 0) then writeln('Yes')
else writeln('No')
end.
Ответы
Автор ответа:
1
https://pastebin.com/kpStSLvx
Спасибо!
Похожие вопросы
Предмет: Русский язык,
автор: gura2281337
Предмет: Другие предметы,
автор: Крис111111268468
Предмет: Русский язык,
автор: XvostoLom
Предмет: Физика,
автор: buzurkievadam00
Предмет: Алгебра,
автор: fgbnm