Решите в программе паскаль
На вход поступают положительные и отрицательные числа. Ввод
осуществляется до тех пор, пока не будет введен нуль. Найти сумму всех
введенных чисел с клавиатуры, а также количество неотрицательных чисел
Ответы
Ответ дал:
1
// PascalABC.NET
begin
var (Сумма, КоличествоНеотрицательных) := (0, 0);
foreach var Число in
ReadSeqIntegerWhile(Введено -> Введено <> 0) do
begin
Сумма += Число;
if Число >= 0 then
КоличествоНеотрицательных += 1
end;
Print(Сумма, КоличествоНеотрицательных)
end.
MaxLevs00:
Помогите мне пожалуйста с информатикой
Вас заинтересует
4 месяца назад
6 месяцев назад
2 года назад
7 лет назад