Паскаль.1) Определите, сколько чисел, введенных пользователем делятся на 3 без…

Question

72

Паскаль.1) Определите, сколько чисел, введенных пользователем делятся на 3 без остатка. Ввод чисел пользователем заканчивается после ввода цифры 0,2) Найдите сумму цифр числа, меньших 5. Например, для числа 715245 это будет 1+2+4=7. Написать блок-схему и программу.

категория: информатика

ответить

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

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

defann3 · Accepted Answer

84

defann3

21 февраля 2023

1) program ABC; var num,count: integer; beginreadln (num); while num<>0 dobegin if (num mod 3)=3 then count: =count+1end; writeln (count) end. 2) program ABC; var num,sum: integer; beginreadln (num); while num<>0 dobegin if (num mod 10) < 5 then sum: =sum+num mod 10; num: =num div 10end; writeln (sum) end.

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

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

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

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