Напишите программу, которая вводит четырехзначное число и вырезает из него вторую цифру

Question

Информатика

Адамыч

4 января, 14:35

Напишите программу, которая вводит четырехзначное число и вырезает из него вторую цифру

+1

Ответы (1)

Знаешь ответ?

Александринка · Answer 1

Program _1;

var a, b, c:integer;

begin

readln (a);

b:=a mod 100;

c:=a div 1000;

a:=c*100+b;

writeln (a);

end.

Буду благодарен за "Лучший ответ"