1. с клавиатуры вводятся числа, "0" - конец ввода. сколько положительных чисел ввели. 2. с клавиатуры вводятся двухзначные числа, до тех пор пока их сумма не превысит 200. сколько ввели чисел кратных 9? решить через паскаль
haru2000
3
21.05.2019 18:02
0
Другие вопросы по теме Информатика
Danrukn
02.07.2019 17:10
sanyashoydokov
21.04.2019 12:10
aygun256
21.04.2019 10:19
Verra990
28.07.2019 07:50
juliana123456
17.06.2020 23:26
sherbashina
17.06.2020 23:01
AsdZaKAsd
28.02.2021 16:56
Панель11
28.02.2021 16:56
Mokysya
28.02.2021 16:56
Популярные вопросы
- Який вплив пасатів має африканський континент...
1 - с домашкой!! Написати твір мініатюру Порятунок Івана та Джулії з повісті альпійська...
2 - Нужно написать сообщение уроки Гоголя...
2 - В треугольнике ABC проведены биссектрисы AD и BM, которые пересекаются в точке...
2 - Разница двух чисел равняется 520 Найти эти числа если одно из них в 5 раз больше...
3 - Rewrite the following sentences in the passive form. 1.You are spending so much...
1 - Розташуйте описані події в хронологічній послідовності (пронумеруйте варіанти віповідей...
2 - раскрыть скобки Word formationVerbs 1. How does the village life (comparison) with...
3 - Терең ой деген не? Оны қалай түсінесіңіз...
3 - подпишусь очень надо просто ответьте на вопросы завтро рано в школу а щас 10 часов...
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.