var D,R:integer;
begin
writeln('Введите значение R: ');
readln(r);
D:=2*R;
writeln('D = ',D);
end.
qbasic
? "Введите число"
INPUT A
A:2=B
IF B=INT(B) THEN 1 ELSE 2
1 ? "Это число четное" : GOTO 3
2 ? "Это число не четное"
3 END
В 4 ответ 3.
к сожалению в 5 не могу ничего понять.
К=8, потому, что каждое следующее число делится на 2.