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

Question

Информатика

Фрол

20 декабря, 04:13

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

+3

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