Предмет: Информатика,
автор: grattttt
хелп ми плез Паскаль
Приложения:

Ответы
Автор ответа:
1
3.
var
a, b : integer;
begin
readln(a, b);
if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');
end.
4.
var
a : integer;
begin
readln(a);
if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');
end.
Похожие вопросы
Предмет: Геометрия,
автор: angelinabondar6
Предмет: История,
автор: Anna33734
Предмет: Геометрия,
автор: angelinabondar6
Предмет: Литература,
автор: Trollsahsa11
Предмет: Литература,
автор: Trollsahsa11