Регистрация
228466
11.06.2021 06:47
Информатика
Есть ответ 👍

На языке программирования паскаль составить программу суммы нахождения суммы вводимых с клавиатуры положительных чисел . печать результата по вводу 0 ( используя цикл while т.е. предусловие ).

296
348
Посмотреть ответы 2

Ответы на вопрос:

ledylog
ledylog
4,4(31 оценок)

var

  a, s: real; //a - вводимое с клавиатуры число, s - сумма чисел

 

begin

  a: = 1;   //присваиваем начальное значение, чтобы цикл выполнился

  s: = 0;

  while a < > 0 do    

  begin

    writeln('введите положительное число');

    readln(a);

    if a < 0 then

    begin

      writeln('введено не положительное число. повторите ввод заново');

      continue; {если а - не положительное число, вводим число заново}

    end;

    s: = s + a;

  end;

  writeln('сумма:   ', s);   //выводим сумму

end.

   

LuсКу
LuсКу
4,6(5 оценок)
Ответ 2) если надо расписать, то напиши мне, распишу)

Популярно: Информатика