Предмет: Информатика,
автор: handycemetery
РЕШИТЕ ДЛЯ 8 КЛАССА БЕЗ ЗАУМНЫХ ВЕЩЕЙ ПРИ ПОМОЩИ ИФ,ВАЙЛ и тд в ПАСКАЛЕ АБЦ.
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 3.
Входные данные:73,13,14,133,63,0.
Выходные данные:196
Ответы
Автор ответа:
1
var a,s:integer;
begin
s:=0;
repeat
write('Введите число: ');
readln(a);
if (a mod 7=0) and (a mod 10=3) then s:=s+a;
until a = 0;
writeln('Сумма всех чисел, кратных 7 и оканчивающихся на 3 равна ',s);
readln
end.
begin
s:=0;
repeat
write('Введите число: ');
readln(a);
if (a mod 7=0) and (a mod 10=3) then s:=s+a;
until a = 0;
writeln('Сумма всех чисел, кратных 7 и оканчивающихся на 3 равна ',s);
readln
end.
handycemetery:
спасибо
Похожие вопросы
Предмет: Физика,
автор: drmatykhin
Предмет: Физика,
автор: qosimovabdullajon0
Предмет: Оʻzbek tili,
автор: winplay040
Предмет: Математика,
автор: Аноним