Даю 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
Спасибо!
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад