Question

РЕШИТЕ ДЛЯ 8 КЛАССА БЕЗ ЗАУМНЫХ ВЕЩЕЙ ПРИ ПОМОЩИ ИФ,ВАЙЛ и тд в ПАСКАЛЕ АБЦ. На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти на­ту­раль­ных чисел опре­де­ля­ет сумму всех чисел, крат­ных 7 и окан­чи­ва­ю­щих­ся на 3. Про­грам­ма по­лу­ча­ет на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся чис­лом 0 (0 — при­знак окон­ча­ния ввода, не вхо­дит в последовательность). Ко­ли­че­ство чисел не пре­вы­ша­ет 100. Введённые числа не пре­вы­ша­ют 300. Про­грам­ма долж­на вы­ве­сти одно число: сумму всех чисел, крат­ных 7 и окан­чи­ва­ю­щих­ся на 3. Входные данные:73,13,14,133,63,0. Выходные данные:196

Answer 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.