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

Question

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

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.