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

Question

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

Answer 1

Ответ:

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

Подробнее - на Znanija.com - znanija.com/task/3182453#readmore

Объяснение: