Помогите пожалуйста. Нужно в паскале. Напишите программку которая вводит с клавиатуры

Помогите пожалуйста. Необходимо в паскале. Напишите программку которая вводит с клавиатуры числа до тех пор пока не будет введено число 0. В конце работы программки на экран выводится сумма и творенье введенных чисел (не считая 0).

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

Program n_1;

var a, b, n: double;

begin

   read (n);

   a:=n; b:=n;

   if nlt;gt;0 then read (n);

   while (nlt;gt;0) do begin

       a:=a+n;

       b:=b*n;

       read(n);

   end;

   writeln('Сумма чисел равна ', a:0:10, ' а их творение ', b:0:10);

end.

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


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

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

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

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

Войти на сайт