Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>
Она напоминает мне корни деревьев.
Подём,умываться, чистить, зубы, завтрак,сбор партфеля и идти в школу
ответ который он будет выводить 6 ,-1, 5, т.к.
1) на 1-ый ход -2<3 тогда В=3 А=4 С=7
2) на 2-ой 1<4 тогда В=1 А=5 С=6
3) на 3-ий 4<5 тогда В=-1 А=6 С=5
4) 7>6 тогда этот цикл закончивается и выводит А=6 В=-1 С=5