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

CategoriesГеометрияПредмет

данных integer, и операции div mod

Ответы:

var

A,S:integer,

begin

Write(Введите четырехзначное число:),

Readln(A),

S:=(A div 1000)+(A div 10) mod 10,

WriteLn(S),

Readln,

end.