Составить программу запрашивающую 3 числа, и если число чётное, то увеличивается на 2, иначе оставить прежнем.

1

Ответы и объяснения

Лучший Ответ!
2013-02-26T20:58:34+04:00

program example;

var a,b,c,d:integer;

begin
writeln ('Введите 3 числа');
writeln ('Первое число '); readln (a);
writeln ('Второе число '); readln (b);
writeln ('Третье число '); readln (c);
if a mod 2=0 then a:=a+2;
if b mod 2=0 then b:=b+2;
if c mod 2=0 then c:=c+2;
writeln ('Числа после обработки: ',a,' ',b,' ',c);
end.