Помогите пожалуйста.Не могу я такое решать ... (>.<)
1)посчитать сумму чисел в диапазоне от 60 до 6 делящихся на 3 без остатка
2) вывести квадраты чисел от 1 до N
Ответы на вопрос
Ответил Gleb1Kosyrev
0
//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
//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
Ответил WOLFKarinaWOLF
0
Огромное спасибо!)
Ответил Gleb1Kosyrev
0
Не за что. Советую подтянуть информатику, то, что вы спрашиваете - основы основ. Я могу прокомментировать каждую строчку, если хотите.
Ответил WOLFKarinaWOLF
0
да не.программу то я знаю. Я её писать не умею ... нас толком не научили ...
Новые вопросы