Напишите программу, которая получает поток (последовательность) чисел (поочередн...

August 2022 1 2 Report

Напишите программу, которая получает поток (последовательность) чисел
(поочередный ввод с клавиатуры). Признаком окончания потока чисел является ввод

числа 0. В этой последовательности определить количество чисел, которые кратны 3
и их запись оканчивается на 6.
ОЧЕНЬ СРОЧНО 30Б

Answers & Comments

LRSM

Ответ:

var i, n: integer;
begin
i := 1;
while i <> 0 do
begin
read(i);
if (i mod 3 = 0) and (i mod 10 = 6) then n := n + 1;
end;
write(n);
end.

Пример работы:

Answers & Comments

sostavte programmu kotoraya po kodu operacii n vypolnyaet nad celymi chislami a i

napishite programmu kotoraya v posledovatelnosti naturalnyh chisel nahodit kolich6abfeca0c5fa10f45eeebc1396e308cc 31306

nekotoryj avtomat mozhet zaprosit dva chisla i vypolnit 3 komandy sostavte pro

s kakimi i veshestv vzaimodejstvuet voda oksid cinka oksid zheleza iii oksid

napishite programmu kotoraya v posledovatelnosti naturalnyh chisel nahodit minim

napishite programmu kotoraya v posledovatelnosti naturalnyh chisel nahodit summu

рекомендуемые вопросы

Helpful Links

Helpful Social