СРОЧНО!!!Решить задачу в Паскале abc (очень важно) условие " В коробке лежат карандаши количество может быть разное, покупатель покупает от 1 до 3 карандашей включительно(нужно сделать так что бы если кто то купил бы к примеру ...
СРОЧНО!!!Решить задачу в Паскале 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. Если помогло отметьте как лучшее пожалуйста.
Не нашли ответ?
Похожие вопросы