Язык Паскаль!

1) Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.

2) Числа задаются случайно в диапазоне от [-10,10] и выводятся на экран. Находится сумма числе, пока число не станет равным 0.

Question

Информатика

Тонюша

27 июля, 06:05

Язык Паскаль!

1) Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.

2) Числа задаются случайно в диапазоне от [-10,10] и выводятся на экран. Находится сумма числе, пока число не станет равным 0.

+1

Ответы (1)

Знаете ответ на вопрос?

Свирид · Answer 1

Var c, a: integer;

begin

c : = 1;

while (c 0) do

begin

readln (c) ;

inc (a) ;

end;

writeln (a - 1) ;

end.

А во второй разве может сумма одних и тех же чисел (пусть даже удвоенная, утроенная и т. д.) внезапно стать нулём? О_О