(ПАСКАЛЬ)Написать программы для решения задач:
а)Найти сумму первых 10 натуральных чисел кратных 3.
б)Найти произведение первых 8 натуральных чисел кратных 7
а)Найти сумму первых 10 натуральных чисел кратных 3.
б)Найти произведение первых 8 натуральных чисел кратных 7
More Questions From This User See All
Answers & Comments
Ответ:
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
Объяснение: