Ответ:
var n,count:integer;begin repeat readln(n); if(n<>999) then inc(count); until(n=999); writeln(count); readln;end.
Похожие вопросы и ответы:
- Петя и Вася поспорили, делится ли n на k или не делится.…
- Написать код на Python Напишите программу, которая переводит…
- Задание 1. Литературный концертПрочитайте два фрагмента и…
- Помогите! можно в несколько предложенийНаписать…
- Напиши программу, которая принимает три целых…
- 8 Вычисли, записывая по действиям. 13 440:32:7+7:123…
- Даша начала коллекционировать линейки. Андрей решил сделать…
- СРОЧНО 1. В воду погрузили 8 термометров и записали их…
- Задание 2. Составить программу, выводящую на экран…
- При каком значении x квадратный трехчлен x^2+10x+32…
- При каких целых значениях n дробь принимает целые значения:…
- Y=-x^2+4 при каких значениях х функция принимает…
- в игре «Русское лото» из мешка случайным образом выбираются…
- Определите, из приведенных ниже имен, кем было введено…
- Какое новшество, касающееся армейской службы, было введено в…