Question

Помогите пожалуйста.Не могу я такое решать ... (>.<)
1)посчитать сумму чисел в диапазоне от 60 до 6 делящихся на 3 без остатка
2) вывести квадраты чисел от 1 до N

Answer 1

//Pascal ABC.NET v3.1 сборка 1172

//1

Var
 i,s:integer;
begin
 for i:=6 to 60 do
 if i mod 3=0 then s:=s+i;
 writeln(s);
end.

Вывод:627

//2

Var
 i,n:integer;
begin
 readln(n);
 for i:=1 to n do writeln(sqr(i));
end.

Пример ввода:
5
Пример вывода:
1
4
9
16
25

Answer 2

Огромное спасибо!)

Answer 3

Не за что. Советую подтянуть информатику, то, что вы спрашиваете - основы основ. Я могу прокомментировать каждую строчку, если хотите.

Answer 4

да не.программу то я знаю. Я её писать не умею ... нас толком не научили ...