напишите программу на языке паскаль для следуюзей задачи: для любого четырехзначного числа найти сумму первой и предпоследней цифры. Используя тип данных integer, и операции div mod

1

Ответы и объяснения

2013-11-28T08:59:47+04:00
Var
A,S:integer;
begin
Write('Введите четырехзначное число:');
Readln(A);
S:=(A div 1000)+(A div 10) mod 10;
WriteLn(S);
Readln;
end.