• с помощью программы паскаль написать программу которая будет считать суммы введенных в клавиатуре чисел, до тех пор пока не будет введен ноль.Спасибо заранее.Цикл While do

Ответы 1

  • var a,s:integer;begins:=0;readln(a);while a<>0 do begin  s:=s+a;  readln(a); end;writeln('s = ',s);end.Пример:825s = 15
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years