Меню сайта

Задача №7

Найти сумму чисел от 1 до —n


Program -for_7-

uses crt-

Var s:longint-

i, n:integer-

Begin

ClrScr-

Writeln(‘введите число ‘)-

Readln(n)-

s:=0-

For i:=1 to n do

s:=s+i-

Writeln( ‘s= ‘,s)-

Readln-

End.

Категория: Циклы | Дата: 07.11.12

Меню раздела
Блок