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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.