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>
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:3);
end;
writeln;
writeln('Пары соседних элементов с суммой > 50:');
for i:=2 to n do
if a[i-1]+a[i]>50 then writeln(a[i-1]:3,' ',a[i]);
end.
Пример:
12 34 23 1 12 3 1 42 30 36
Пары соседних элементов с суммой > 50:
34 23
42 30
30 36
Мне не совсем понятна формулировка вопроса: если там имеется в виду, что Красный и Зеленый стоит на максимуме, а Синий на минимуме, то будет Желтый. То есть в реальности это надо было бы записать как RGB (255,255,0)
А если там действительно RGB (1,1,0) как сказано в задачке, то оно даже из черного не вылезет :) Но, скорее всего, просто запись цвета в задачке нестандартной манере сделана.
Алгоритм, составленный для конкретного исполнителя, должен включать только те команды, которые входят в его систему команд. Это свойство алгоритма называется понятностью<span>. Алгоритм не должен быть рассчитан на принятие каких-либо самостоятельных решений исполнителем, не предусмотренных составителем алгоритм</span>
Насколько я знаю , то можно создать в Вк такого бота , мне так говорили , там есть какое - то спец. приложение что ли