Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,s: real;
begin
writeln("введите высоту куба");
readln(a);
writeln("введие длину стороны куба");
readln(b);
s: =a*b;
writeln("площадь равна",s);
readln;
end.
путь по озеру равен v * t1
скорость при движении против течения равна v - u
путь по реке равен (v - u) * t2
общий путь, пройденный лодкой s = v * t1 + (v - u) * t2
qbasic:
input "число а=", a
x = a
do
x = x ^ 2 + 1
n = n + 1
loop until x > = 1000000
print a, x, n
max(n) = 7, при a = 0
Популярные вопросы