Нужно решить задачу с помощью циклов while-do или repeat-until. Определите, сколько чисел,…

Question

73

Нужно решить задачу с помощью циклов while-do или repeat-until. Определите, сколько чисел, введенных пользователем делятся на 3 без остатка. Вводчисел пользователем заканчивается после ввода цифры 0.

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

ответить

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

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

ulproekt · Accepted Answer

40

ulproekt

20 апреля 2023

Program Kr3; Uses Crt; var n,c: integer; begin n: =0; clrscr; write ('Введите числа конец ввода 0: '); repeat readln (c); if (c mod 3)=0 then n: =n+1; until (c=0); writeln ('Количество чисел кратных 3: ',n); readkey; end.

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

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

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

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