Размещено 5 лет назад по предмету
Информатика
от wusuyidanu
Объясните программу!!!!
Среди заданных чисел A,B,C,D есть хотя бы два четных.
var i,e,t,k:integer;
s:string;
begin
for i:=0 to 3 do
begin
repeat
Write(Chr(Ord('a')+i),': ');
ReadLn(s);
Val(s,t,e);
if e<>0 then WriteLn('Это не целое число, повторите ввод');
until e=0;
if t mod 2=0 then Inc(k);
end;
WriteLn(k>=2);
end.