Выручите, пожалуйста! Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающий заданного натурального числа N. Проверьте алгоритм трассировкой. Напишите программу на Паскале.
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. Выбирайте лучший ;)
спасибо! надеюсь мой учитель посчитает ваш ответ за правильный. но всё же, спасибо!
Насчет проверки. Можете написать так: "При вводе числа такого-то программа выводит это"
можнл по конкретнец по поводу проверки
Ну у вас нет паскале на компьютере?
есть
Ну вот. Копируй туда текст программы и запускай. Вводи значение, которое хочешь и получай ответ, который можно записать, если в задании вам нужно проверить алгоритм.
хорошо, спасибо