Что-то подзабыл я pascal. написать программу в pascal, которая складывает последние 4 цифры любого задаваемого числа.

рпипппит рпипппит    2   04.10.2019 01:30    0

Ответы
irinavlasova irinavlasova  02.09.2020 15:49
Var a,s:integer;
begin
repeat readln(a) until a>9; // по условию число >9
s:=a mod 10; // забираем последнюю цифру
while a>9 do a:=a div 10; // вычеркиваем последнию цифру, пока а - двухзначное число
writeln(s+a mod 10) // теперь выводим сумму
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика