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

Question

Информатика

Авдотька

12 июля, 17:02

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

+4

Ответы (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.

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