Привет, мне нужна помощь . 1 задание. Программа в паскале

+ 0 -

Ivan7771

09 авг. 2015 г., 23:30:33 (8 лет назад)

uses crt;
var a,b:integer;
c:boolean;
at,bt:string;
begin
write('Введите числа А и В: ');
readln(a,b);
if ((a mod 2)=0) or ((b mod 2)=0) then begin
str(a,at); str(b,bt);
a:=length(at); b:=length(bt);
if (copy(at,a,1)<>'2') or (copy(bt,b,1)<>'2') then c:=true else c:=false;
end;
writeln(c);
end.

Т.к. число может быть любым по длине, числа, кратные двум, переводятся в текст и затем уже проверяется, двойка у них на конце или нет.