Помогите написать программу на паскале или бэйсике

ShadowDan, 114 просмотров

Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 5 или 9. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.

Программа должна вывести одно число: количество чисел, кратных 5 или 9.

Ответы:

Священное Предание в первую очередь есть Основа Понимания Истины. Важность священного Предания состоит в том, что только человек, который,

program ttt;
var x, md, i, k : integer;
begin
for i:=1 to 1000 do
begin
write('Введите число №',i:3);readln(x);
if x = 0 then break;
if ((x mod 5)=0) or ((x mod 9)=0) then k := k+1;
end;
writeln('Количество цифр кратных 5 и 9 равно :',k);
end.

12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.