Дано трехзначное число А,если вторая цифра числа четная,то ее заменить на ноль

1

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

2014-02-11T15:06:28+04:00
Program z;
var n,a,b,c:word;
begin
writeln('Введите число'); readln(n);
a:=n mod 10;
n:= n div 10;
b:= n mod 10;
n:= n div 10;
c:=n;
if b mod 2 = 0 then b:=0;
writeln(c,b,a); end.