Var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then write('YES')
else write('NO')
end.
Процент представь в виде десятичной дроби и умножь на 35000 кг
Три канала по 37 уровней яркости в системе RGB дадут в сумме 3 х 37 = уровней. Каждый байт хранит 256 комбинаций, поэтому одного байта будет вполне достаточно.
Uses Crt;
const n=10;
var
A: array[1..n] of integer;
i,f,f1: integer;
begin
clrscr;
f:=-1;
f1:=-1;
for i:=1 to n do
begin
writeln('введите',i,' элемент массива ');
readln (A[i]);
if A[i]>0 then
begin
f1:=A[i];
if f<0 then
f:=A[i];
if f>f1 then
f:=A[i];
end;
end;
writeln('наименьшее положительное', f);
readln;
end.
После выполнения цикла он сместится на 10 по х и на 6 по у. Затем он окажется на клетки с координатами 4 по х и 2 по у. Значит правильный ответ - 3.