Регистрация
UTOYKA228
23.05.2023 02:50
Информатика
Есть ответ 👍

Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел последовательности
б) количество всех чисел последовательности
Решить задачу используя циклическую конструкцию while .
​

139
330
Посмотреть ответы 2

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

Tara8808
Tara8808
4,4(55 оценок)

var a, s,k: integer;

begin

 s := 0;

 k:=0;

 readln (a);

 while a <> 0 do

 begin

   k:=k+1;

   s := s + a;  

   readln(a);

 end;

 writeln('Сумма всех чисел последовательности ', s ,' Количество всей числ последовательности ' ,k);

end.  


Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел посл
альбинка25
альбинка25
4,4(66 оценок)
Если в поле admin будет выбрано значение "м", то (начинается у вас цикл, в файле ищется значение admin , далее значение м) выведется сообщение в окне на экран (", хозяин! ". в противном случае , хозяйка! "

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