Имеется четыре произвольных числа 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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
