kategorn1
03.02.2022 19:09

Определите сумму всех элементов последовательности, завершающейся числом 0. числа, следующие за нулем, считывать не нужно. входные данные вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит). выходные данные выведите ответ на . примеры входные данные 1 7 9 0 выходные данные 17

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
artemnovik506
02.10.2020 13:13
Pascal
 
var
    a,s : integer;
 begin
   s := 0;
   readln (a);
  While a <> 0 do
    begin
     s := s +a;
     readln (a);
    end;
 
  writeln (s);
 end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота