Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
10 декабря 2022 21:48
838
Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Напишите программу на Паскале.
1
ответ
var sum,n,i:integer;
begin
readln(n);
sum:=0;
for i:=1 to n do
sum:=sum+i;
writeln(sum);
readln;
end.
begin
readln(n);
sum:=0;
for i:=1 to n do
sum:=sum+i;
writeln(sum);
readln;
end.
0
·
Хороший ответ
12 декабря 2022 21:48
Остались вопросы?
Еще вопросы по категории Информатика
...
Дан условный оператор: if a<5 then c:=1 else if a>5 then c:=2 else c:=3 Какое значение имеет переменная a , если в результате выполнения условно...
Как информатика связанна с Эвм? Поколения Эвм? В каких отраслях труд человека целесообразнее заменить трудом эвм? Существует ли связь между информа...
Помогите пожалуйста! Это Smath Studio...
несжатое растровое изображение размером 128х128 пикс. занимает 2Кб. памяти. Каково максимально возможное число цветов в палитре изображения?...
Все предметы 
