Даю 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.
Ответы на вопрос
Ответил korsa351
1
https://pastebin.com/kpStSLvx
Спасибо!
Новые вопросы
Английский язык,
2 года назад
Другие предметы,
2 года назад
Русский язык,
7 лет назад
Информатика,
7 лет назад
Математика,
8 лет назад