Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

срс№3

.pas
Скачиваний:
0
Добавлен:
24.12.2018
Размер:
230 б
Скачать
Program Suma2;
Var i, N, S: integer;
Begin
write ('Введіть кількість натуральних чисел:');
write('N=');
readln(N);
i:=1; S:=0;
repeat
S:=S+i;
i:=i+1;
until i>N;
Writeln ('S=',S);
end.
Соседние файлы в предмете Информатика