Дано трехзначное число А,если вторая цифра числа четная,то ее заменить на ноль
Дано трехзначное число А,если вторая цифра числа четная,то ее заменить на ноль
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы