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

Question

Информатика

Аннюся

17 апреля, 01:41

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

+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.

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