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

Question

73

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

в избранное ссылка

Знаете ответ?

nickn · Accepted Answer

69

nickn

08 апреля 2023

VarA,S: integer; beginWrite ('Введите четырехзначное число: '); Readln (A); S: =(A div 1000)+(A div 10) mod 10; WriteLn (S); Readln; end.

комментировать

в избранное ссылка отблагодарить