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

Question

Информатика

Аврелиан

23 августа, 19:36

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

+4

Ответы (1)

Знаете ответ на вопрос?

Эмилиан · Answer 1

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.