Блок-схема по ГОСТ 19.701-90 (ISO 5807-85) - во вложении
Программа, которая вычисляет значение функции:
var x,y:real;
begin
write('x = '); readln(x);
if x<=0 then y:=x*x else y:=1/x;
writeln('y = ',y);
end.
Пример:
x = 5
y = 0.2
Ответ:
R G B
ярко синий: 00 00 FF
ярко желтый: FF FF 00
бледно желтый FF FF D0
Объяснение:
RGB кодировка:
первый канал красный
второй зеленый
третий синий
значение канала больше - этот цвет ярче
значение канала меньше - этот цвет темнее
любой цвет получается смешением цветов этих трех каналов
Var a,b,c:integer;
d:array [1..20] of integer;
begin
randomize;
for a:=1 to 5 do begin
d[a]:=random(-100,100);
if d[a] mod 2 = 0 then writeln('чётный элемент массива ==> ',d[a])
else writeln('нечётный элемент массива ==> ',d[a]);
end;
end.<span>
</span>