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