1г

Это самостоялка по информатике. Очень надо!

Даны два числа если они трехзначные или чётные то выведите их на экран. Четность числа проверяется проверкой делимости на 2.Число делится если остаток от деления равен нулю. Остаток от деления считается операцией mod. Напишите программу на языке программирования Pascal.

Дополнен

Пожалуйста от начала до конца

По дате

По Рейтингу

iessiv

Оракул

1г

uses crt;
procedure col(n:integer);
var k,a,b:byte;
begin
clrscr;
if n=0 then k:=1 else k:=0;
while n>0 do
begin
n:=n div 10;
k:=k+1;
end;
end;
var n,a,b:integer;
begin
write('Vvedite a,b ');
readln(a,b);
if (n = 3) or (a mod 2 = 0)
or (b mod 2 = 0) then
writeln('a = ',a,' b = ',b);
end.