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

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

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

Question

Информатика

Евмений

25 мая, 22:34

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

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

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

+5

Ответы (1)

Знаешь ответ?

Тихомира · Answer 1

Var c, a: integer;

begin

c : = 1;

while (c 0) do

begin

readln (c);

inc (a);

end;

writeln (a - 1);

end.

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