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

Question

Информатика

Ксюша

21 декабря, 20:40

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

+5

Ответы (1)

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

Марк · Answer 1

Program chisla;

var a:integer;

begin

Write ('Введите четырехзначное число: ') ;

read (a) ;

if (a=1000) then

begin

Writeln ('Вторая цифра ', a div 100 mod 10) ;

end

else

Writeln ('Это не четырехзначное число') ;

end.