Информатика, опубликовано 11.04.2019 11:20
Напишите программу в pascal abc, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чисел,
кратных 5 или 9. входные данные: 15 91 90 0 выходные данные: 2
Ответы
Ответ оставил: Гость
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Ответ оставил: Гость
Vxc/jkg[uzv[=vuf[=[fgv9uucfo]cagui]ldpul]sflcuslcu]0d9fgОтвет оставил: Гость
Которые предназначены не для одной платформа (к примеру, не только на ПК) Ответ оставил: Гость
110000001010010011110001101
Другие вопросы по информатике
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
