• Привет, ребят, у меня завтра первой парой зачет по  'Pasсal ABC' , помогите пожалуйста решить задачку. Буду очень признательна ^.^ 

    Ввести N1,N2,N3 - количества рекламаций на три вида товаров. Напечатать текст "Все товары хорошие" , если max(N1,N2,N3) меньше 5, иначе- "есть плохие товары"
     

Ответы 4

  • Спасииииииииииибо :*
  • Спасибо, большое за помощь ^^
    • Автор:

      sweeney
    • 6 лет назад
    • 0
  • готово,проверяйте...............
  • var  x,i:integer;  f:boolean;beginf:=true;for i:=1 to 3 do  begin  write('Введите N',i,': ');  readln(x);  if x>=5 then f:=false;  end;if f then writeln('Все товары хорошие')  else writeln('Есть плохие товары')end.
    • Автор:

      dave
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years