Регистрация
Zhaksyldi
17.04.2021 14:40
Информатика
Есть ответ 👍

Решить в паскале abc ( важно) условие " в коробке лежат карандаши количество может быть разное, покупатель покупает от 1 до 3 карандашей включительно(нужно сделать так что бы если кто то купил бы к примеру 5 ,то программа бы не работала дальше),необходимо узнать сколько покупателей обслужит продавец перед тем,как они кончатся. через цикл с пред условием "repeat" (until)

230
490
Посмотреть ответы 2

Ответы на вопрос:

korolevdanil99
korolevdanil99
4,5(65 оценок)
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. если отметьте как лучшее .
Artem19092002
Artem19092002
4,6(12 оценок)
Var i,k: integer; rez: real; begin for i: =10 to 99 do if (i mod 2)=0 then begin k: =k+1; rez: =rez+i; end; rez: =rez/k; writeln(rez: 0: 1); end.

Популярно: Информатика