Мне нужна помощь по информатике срочноВ общем мы делаем всё на
Мне нужна помощь по информатике безотлагательно
В общем мы делаем всё на Pascal ABC. и надобно решить следующее:
1. Отыскать сумму всех натуральных чисел от 1 до 100.
2. Отыскать сумму кубов всех естественных чисел от 11 до 50.
3. Найти сумму всех двузначных нечётных чисел.
4. Отыскать сумму квадратов всех естественных чисел от 50 до 90.
5. Отыскать сумму всех двузначных чётных чисел.
Заблаговременно Спасибо!!!!
1)
var i, sum: integer;
begin
sum:= 0;
for i:= 1 to 100 do sum:= sum + i;
write(sum);
end.
2)
var i, sum: integer;
begin
sum:= 0;
for i:= 11 to 50 do sum:= sum + i * sqr(i);
write(sum);
end.
3)
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 doif i mod 2 = 1 then sum:= sum + i;
write(sum);
end.
4)
var i, sum: integer;
begin
sum:= 0;
for i:= 50 to 90 do sum:= sum + sqr(i);
write(sum);
end.
5)
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 doif i mod 2 = 0 then sum:= sum + i;
write(sum);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.