Напишите программу на языке Паскаль, для решения следующей задачи:

Для любого четырехзначного вводимого числа найти сумму второй и предпоследней цифры).

(Подсказка. Используйте тип данных integer и операции div и mod)

Question

Галактион

29 июня, 03:13

+1

Ответы (2)

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

Дуся · Answer 1

Var a, b, c:integer;

begin

read (c) ;

a:=c div 100; a:=a mod 10;

b:=c div 10; b:=b mod 100;

write (a+b) ;

end.

Петр · Answer 2

Var a, b, c, d:integer;

begin

readln (a) ;

b: = (a div 100) mod 10;

c: = (a mod 100) div 10;

d:=b+c;

writeln (d) ;

readln;

end.