Имеется четыре произвольных числа a, b, c, d, которые вводятся с клавиатуры. программа должна давать ответ на вопрос: «правда ли что первое число меньше остальных" c циклами while repeat
goloshapov145
2
15.03.2019 14:30
2
Другие вопросы по теме Информатика
егор22813371111
28.05.2021 12:07
babyirishka21
22.11.2019 16:55
katasinicina39
22.11.2019 16:44
пимимпп
08.08.2019 09:50
13kirya13
08.08.2019 09:50
АлинаRiver
18.05.2021 11:25
Dailll
02.06.2020 17:01
NHatynceva
08.02.2022 08:57
yuyornevzkoxkdhd543
08.02.2022 08:57
Популярные вопросы
- Напишите сочинение на английском языке на тему : Школа моей мечты .7-8...
3 - Величие народа не исчисляется его численность, как и величие человека...
3 - Один из углов, полученных при пересечении двух параллельных прямых секукущей,...
1 - Запиши все нечетные числа которые удовлетворяют неравенства 120,5 у+3_3...
3 - Задание N№ 13 Отгадай загадкуКак танк могучий и стальной,Она несётся по...
2 - тесты решить если не знаете не отвечайте)...
3 - 1 задание ответы на вопросы...
1 - Длина окружности равна 28,166 см. Значение числа π≈3,14. Определи диаметр...
1 - Шар, летящей со скоростью 5 м/с, ударяет неподвижный шар. Удар прямой,...
2 - +и- влияние человека на гидросферу . И +и- влияние гидросферы на человека...
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<f then flag:=flag+1
else flag:=0;
Until k=3;
If flag=3 then Writeln('yes')
else writeln('no');
readln;
end.