Я бы делала так. var number, sum : int; begin sum := 0; do begin write ('vvedi 4islo: '); readln (number); if ((number>9) and (number mod 5 = 0)) sum := sum + number; end; while (number <> 0); readln; end.
У свинки (пяточок)
Мне кажется что так.
2 сказка о попе и его работнике балде 3 винни-пух и все все все 4 не знаю 5 сказка о царевне и о 7 богатырях
Колледж Минского университета управления