(ПАСКАЛЬ)Написать программы для решения задач:
а)Найти сумму первых 10 натуральных чисел кратных 3.
б)Найти произведение первых 8 натуральных чисел кратных 7

Program summa;

uses crt;

var a,b,c,d:integer;

begin

a:=7;

b:=3*a;

c:=0;

for d:=1 to b do

begin

if d mod 3 = 0 then  c:=c+d;

end;

writeln('ответ = ',d);

end.

Нажми, чтобы рассказать другим, насколько ответ полезен

5,0

Подробнее - на -

Объяснение: