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

Question

Информатика

Меланьюшка

16 ноября, 22:16

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

+4

Ответы (1)

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

Паисия · Answer 1

На Pascal:

program sum4; uses crt; var a:integer;

begin writeln ('Введите 4-х значное число') ; readln (a) ; writeln ('Сумма крайних цифр = ', (a mod 10) + (a div 1000)) ; writeln ('Сумма средних цифр = ', ((a div 100) mod 10) + (a div 10) mod 10) ; end.