Программка суммирует n-е количество вводимых с клавиатуры чисел

Программка суммирует n-е количество вводимых с клавиатуры чисел

Задать свой вопрос
1 ответ
program DemoWhile;
var c, n: integer;
x, s: real;
begin
write (Введите к-во чисел n=);
readln (n);
c:=0;
s:=0;
while clt;=n do
begin
c:=c+1;
write (c,-е число:);
readln (x);
s:=s+x
end;
write (Сумма чисел =,s)
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт