1. Информатика
  2. Напишите программу, которая

Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных 7 и оканчивающихся на 0. программа получает на вход натуральные числа, количество введенных чисел неизвестно,
последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), количество чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число:
сумму всех чисел, кратных 7 и оканчивающихся на 0. программу надо написать в pascal

775svetik 775svetik    1   10.03.2019 07:20    4

Ответы
annyayarema777 annyayarema777  24.05.2020 15:07

Program n1;
Uses CRT;
Var s,i: integer;
begin
ClrScr;
Writeln('Введите последовательность. Для остановки введите 0 ');
Repeat
readln(i);
If (i mod 7=0)or(i mod 10=0) then s:=s+i;
until i=0;
writeln('Сумма =',s);
readln
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
EkaterinaZeyb EkaterinaZeyb  27.11.2020 09:58
Какие методы применяемые к символам вы знаете​...
vckdkskk vckdkskk  23.02.2021 10:50
Сделайте код для этого задания ыныорматика 8клас графично...
aadfgjrv aadfgjrv  23.02.2021 10:52
1. Постройте блок- схему по заданному условию 2. Запишите код программы с условного оператора х=5 у= -6 если (х у) то z=x+y иначе z=y-x вывод (z)...
Temmie15 Temmie15  04.12.2020 11:22
Help me!Это информатика сделать ответы все от 1 до 13. Если будет правильно дам лучший ответ. Пример: №1:а №2:г последние 2 с решением...
фая49 фая49  04.12.2020 11:22
Летом мальчики играют в футбол или баскетбол и не играют в хоккей.Составьте логическую формулу и постройте таблицу истинности...
astatined astatined  04.03.2019 10:10
Составить блок-схему и программу,которая,вводит с клавиатуры 5 чисел и проверяет является ли частное от деления суммы первых трёх чисел на сумму двух последних целым числом....
shishkinaviolet shishkinaviolet  04.03.2019 10:10
Петя и коля играют в следующую игру: на стол кладется 15 спичек. по очереди берут их со стола. за один ход можно взять 1, 2 или 3 спички. выигрывает тот, кто возьмет последнюю....
Lena747456 Lena747456  04.03.2019 10:10
Чем отличается описание алгоритма от обращения к алгоритму...
hamov1408p06m04 hamov1408p06m04  20.12.2020 18:31
Риши задачу один токарь вытачивает 10 деталей в час а второй -15сколтко деталей они сделают за 8 ч если будут работать всемсте ? А=(???​...
nastya84756 nastya84756  20.12.2020 18:31
Чем похожи и чем различаются Иван царевич и королевич елисей...

Популярные вопросы