Предмет: Информатика,
автор: vanyamemz
(ПАСКАЛЬ)Написать программы для решения задач:
а)Найти сумму первых 10 натуральных чисел кратных 3.
б)Найти произведение первых 8 натуральных чисел кратных 7
Ответы
Автор ответа:
0
Ответ:
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 - https://znanija.com/task/3182453#readmore
Объяснение:
Похожие вопросы
Предмет: Русский язык,
автор: Sami7
Предмет: Українська мова,
автор: zbaraxa
Предмет: Русский язык,
автор: masis1
Предмет: Биология,
автор: solonevich20001
Предмет: Алгебра,
автор: mrimma067