Задание:
Язык Паскаль! 1) Вводить с клавиатуры числа, пока не будут введен 0. Найти количество введенных чисел.2) Числа задаются случайно в диапазоне от [-10,10] и выводятся на экран. Находится сумма числе, пока число не станет равным 0.
Решение:
Var c, a: integer; begin c: =1; while (c <> 0) do begin readln (c); inc (a); end; writeln (a — 1); end. А во второй разве может сумма одних и тех же чисел (пусть даже удвоенная, утроенная и т.д.) внезапно стать нулем? О_О
Знаете другой ответ?