Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
6 декабря 2022 20:21
1223
Напишите программу, которая вычисляет сумму:а) первых n натуральных чисел
б) квадратов первых n натуральных чисел
в) всех четных чисел в диапазоне от 1 до n
г) всех двухзначных чисел
Даю 20 баллов!!!
1
ответ
Var
i, s1, s2, s3, s4, n: integer;
begin
write('n = ');
readln(n);
s1 := 0;
s2 := 0;
s3 := 0;
s4 := 0;
for i := 1 to n do
begin
s1 := s1 + i;
s2 := s2 + sqr(i);
if i mod 2 = 0 then s3 := s3 + i;
end;
for i := 10 to 99 do s4 := s4 + i;
writeln('Сумма первых n натуральных чисел: ', s1);
writeln('Сумма квадратов первых n натуральных чисел: ', s2);
writeln('Сумма всех четных чисел: ', s3);
writeln('Сумма всех двухзначных чисел: ', s4);
end.
i, s1, s2, s3, s4, n: integer;
begin
write('n = ');
readln(n);
s1 := 0;
s2 := 0;
s3 := 0;
s4 := 0;
for i := 1 to n do
begin
s1 := s1 + i;
s2 := s2 + sqr(i);
if i mod 2 = 0 then s3 := s3 + i;
end;
for i := 10 to 99 do s4 := s4 + i;
writeln('Сумма первых n натуральных чисел: ', s1);
writeln('Сумма квадратов первых n натуральных чисел: ', s2);
writeln('Сумма всех четных чисел: ', s3);
writeln('Сумма всех двухзначных чисел: ', s4);
end.
0
·
Хороший ответ
8 декабря 2022 20:21
Остались вопросы?
Еще вопросы по категории Информатика
41. Постройте на координатной плоскости рисунок, отметив и соединив точки в текой последовательности: 1-2-3-4-5-6-7- 8-9-10-7-11-12-13-14-11-15-16-17-...
Помогите составить деревья для вычеслентя логических выражений и таблицы истинности этих выражения...
Какие технологии MS EXCEL используются для решения оптимизационных задач: 1. Пользовательский автофильтр; 2. Автосуммирование;...
Найти значение у= 5х 2 -10х+2 Значение х вводится с клавиатуры....
Укажите все возможные маршруты доставки интернет-пакетов от сервера "И "(источник) к серверу "П" (приёмник) через серверы 1. 2. 3. 4 с учётом имеющейс...