Question

Тема: Pascal.Циклы
1)Напечатать таблицу умножения на 6(умножение от 1 до 9)
2)Найти сумму всех трехзначных чисел,кратных 3
3)Вычислить сумму 1+1/2+1/3+...+1/n

Answer 1

1)var a,b:integer;
begin
for a:=1 to 9 do
begin
b:=a*6;
writeln(a,'*6=',b);
end;
end.
2)var a,b:integer;
begin
b:=0;
for a:=100 to 999 do
begin
if (a mod 3=0) then b:=b+a;
end;
writeln('Сумма равняется ',b);
end.
3)var a,n:integer;
b:real;
begin
b:=0;
writeln('Введите число n');
readln(n);
for a:=1 to n do
begin
b:=b+(1/a);
end;
writeln('Сумма равняется ',b);
end.

Answer 2

Пожалуйста