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

Question

Информатика

Ювеналий

9 января, 07:43

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

+3

Ответы (1)

Знаете ответ на вопрос?

Евстигней · Answer 1

Var a, b, c, d, k, f, flag: integer;

begin

readln (a, b, c, d) ;

repeat

K:=k+1;

Case k of

1: f:=b;

2: f:=c;

3: f:=d;

end;

If a
else flag:=0;

Until k=3;

If flag=3 then Writeln ('yes')

else writeln ('no') ;

readln;

end.