Задать вопрос Регистрация
Помочь другим

  • Имеется четыре произвольных числа a, b, c, d, которые вводятся с клавиатуры. Программа должна давать ответ на вопрос: «Правда ли что первое число меньше остальных" c циклами while repeat

Ответы 1

  • Var a,b,c,d,k,f,flag: integer;beginreadln(a,b,c,d);repeatK:=k+1;Case k of1: f:=b;2: f:=c;3: f:=d;end;If a<f then flag:=flag+1else flag:=0;Until k=3;If flag=3 then Writeln('yes')else writeln('no');readln;end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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