Регистрация
karinkacommelЛіза
22.12.2020 20:59
Информатика
Есть ответ 👍

Напишите программу в pascal abc, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел, кратных 5 или 9. входные данные: 15 91 90 0 выходные данные: 2

253
271
Посмотреть ответы 2

Ответы на вопрос:

mrhack711ozvry4
mrhack711ozvry4
4,6(89 оценок)
Var a,k: integer; begin k: =0; readln(a); while a< > 0 do   begin   if (abs(a) mod 5=0)or(abs(a) mod 9=0)   then k: =k+1;   readln(a);   end; writeln('k = ',k); end. пример: 15 91 90 0 k = 2
fgk200
fgk200
4,4(15 оценок)
16384  бит  =   2048 байт 2048 байт =2 кбайта ответ: 16384  бит  = 2  кбайта

Популярно: Информатика