Ввести целое число а и вывести сумму всех чисел от 1

Ввести целое число а и вывести сумму всех чисел от 1 до а ПАСКАЛЬ! Помогите пожалуйста (через WHILE......DO BEGIN )

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

Program ch ;

Var x:integer ;

BEGIN

X:=1;

While xl=7 Do(можешь избрать другое число)

BEGIN

Write (x, ' ') /в' ' это пробел /

X:=x+1

End ;

END.

Элина Задворочкина
спасибо огромное))
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт