Question

1. С клавиатуры вводятся числа, "0" - конец ввода. Сколько положительных чисел ввели. 2. С клавиатуры вводятся двухзначные числа, до тех пор пока их сумма не превысит 200. Сколько ввели чисел кратных 9? Решить через паскаль

Answer 1

Ответ:

1)

Begin

Count:=0;

repeat

Read (ch);

If ch> 0 then inc(count);

Until ch<>0

Write(count);

End.

2)

Begin

Sum:=0;

Count:=0;

repeat

Read (ch);

Sum:=sum+ch;

If ch mod 9=0 then inc(count);

Until sum<200

Write(count);

End.