Помогите с Паскалем ABC. дано пятизначное число. определить сумму второй и четвёртой цифры.

Question

Информатика

Любомир

28 февраля, 17:08

Помогите с Паскалем ABC. дано пятизначное число. определить сумму второй и четвёртой цифры.

+5

Ответы (1)

Знаете ответ на вопрос?

Риммура · Answer 1

Program chisla;

uses crt;

var a, b, c : integer;

begin

Write ('Введите пятизначное число: ') ;

readln (a) ;

if (a>99999) then Writeln ('Введено не пятизначное число')

else

begin

b:=a div 1000 mod 10;

c:=a div 10 mod 10;

Writeln ('Сумма 2 й и 4 й цифры этого числа равна: ', b+c) ;

end

end.