Язык Паскаль! 1) Вводить с клавиатуры числа, пока не будут введен…

Question

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

Answer 1

45

valera-fat

07 апреля 2023

Var c, a: integer; begin c: =1; while (c <> 0) do begin readln (c); inc (a); end; writeln (a — 1); end. А во второй разве может сумма одних и тех же чисел (пусть даже удвоенная, утроенная и т.д.) внезапно стать нулем? О_О

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: