Составить программу нахождения суммы чисел четырехзначного числа

Question

Составить программу нахождения суммы чисел четырехзначного числа

Answer 1

44

marti

02 марта 2023

Program exs; var a, i, sum: integer; beginsum: =0; readln (a); {Считывание числа} for i: =1 to 4 do begin sum: =sum+(a mod 10); {Находим остаток от деления на 10} a: =a div 10; {Выкидываем найденную цифру из числа} end; writeln (sum); end.

пользователи выбрали этот ответ лучшим

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

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

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: