СРОЧНО!!!Решить задачу в Паскале abc (очень важно) условие " В коробке лежат карандаш?
СРОЧНО!!!Решить задачу в Паскале abc (очень важно) условие " В коробке лежат карандаш?? количество может быть разное, покупатель покупает от 1 до 3 карандашей включительно(нужно сделать так что бы если кто то купил бы к примеру 5 ,то программа бы не работала дальше),необходимо узнать сколько покупателей обслужит продавец перед тем,как они кончатся. срочно!!! через цикл с пред условием "repeat" (until)
Ответ(ы) на вопрос:
Гость
Var n, k: longint;
Begin
K:=0;
repeat
read (n);
If (n <=3) or (n>=1) then
K:=k+1;
Until (n <1) or (n> 3);
Write (k);
End.
Если помогло отметьте как лучшее пожалуйста.
Не нашли ответ?
Похожие вопросы