Ответы на вопрос:
var n,count: integer; begin repeat readln(n); if(n< > 999) then inc(count); until(n=999); writeln(count); readln; end.
Популярно: Информатика
-
Неліктен программа жазу барысында программалау тілінің синтаксисі...
CoolSansSkeleton16.05.2021 11:59 -
Определи результат вывода на экран после выполнения оператора print()....
1innic1126.07.2022 23:36 -
Ввести с клавиатуры массив в из 8 вещественных элементов,найти...
MasterPvP201611.05.2021 09:55 -
Ввести с клавиатуры массив а из 10 целых элементов, заменить все...
Вероника337716.10.2021 20:37 -
Внекоторой стране автомобильный номер длиной 7 символов составляется...
arzanyaevanika08.03.2022 17:52 -
Даны два ненулевых числа. найти их сумму, разность, произведение...
Katyshkamya06.11.2022 16:50 -
1. Основным элементом электронной таблицы является: 1) ячейка 2)...
annatiko198430.11.2020 19:39 -
2. Сопоставьте правильно структуру алфавита языка Python: 1. Латинские...
archakova6502.03.2020 22:50 -
Пользователь работал с каталогом информатикаюсначала он спустился...
бюро10.03.2020 03:24 -
5 тапсырма 119 бет казак тили 10 сынып...
fbejgiwndkgk22.05.2022 15:45