Выручите, пожалуйста! Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающий заданного натурального числа N. Проверьте алгоритм
5-9 класс
|
трассировкой. Напишите программу на Паскале.
var N, i, sum: longint;
begin
writeln('Введите число');
readln(N);
sum:=0;
for i:=1 to N-1 do
sum:= sum+i;
writeln(sum);
readln
end.
Выбирайте лучший ;)
Другие вопросы из категории
программу для n=13 , записать результат
Многоуровневый список про устройства современного компьютера не принимается!!!
Дано целое число А. Если значение А > 0, то необходимо
увеличить его на единицу. Разработать схему алгоритма для решения этой
задачи. Протестировать алгоритм для A=5, A=-4, A=0. сделать в паскале.
Программу я написала:
Program n1;
var A: real;
begin
readln (a);
if a>0
then a:=a+1;
writeln;
end.
правильно или нет? и какие у меня должны выходить значения?
Читайте также
натуральных чисел, не превышающих заданного натурального числа N.
Проверьте алгоритм трассировкой. Напишите программу на Паскале.
Составите алгоритм вычисления суммы всех натуральных чисел,не превышающих заданного натурального числа N (на Паскале с циклом WHILE)