Используя алгоритмический язык, составить метод суммы 10 естественных чисел. (Желанно

Используя алгоритмический язык, составить метод суммы 10 естественных чисел. (Желательно Паскаль) Помогите,пожалуйста!

Задать свой вопрос
2 ответа

program summation;

var i, summa: Word;

begin

summa := 0;

for i := 1 to 10 do  

summa := summa + i;

WriteLn('l + 2 + .+ 10 = ', summa);

end.

declare Sum

declare i

Sum = 0

for i = 1 to 10

begin

Sum += i

i++

end

Print Sum


, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт