Имеется четыре произвольных числа a, b, c, d, которые вводятся с клавиатуры. программа должна давать ответ на вопрос: «правда ли что первое число меньше остальных" c циклами while repeat
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<f then flag:=flag+1 else flag:=0; Until k=3; If flag=3 then Writeln('yes') else writeln('no'); readln; end.
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<f then flag:=flag+1
else flag:=0;
Until k=3;
If flag=3 then Writeln('yes')
else writeln('no');
readln;
end.