Uses graphabc;
begin
window.IsFixedSize := true;
window.Height := 600;
window.Width := 800;
pen.Color := clred;
lockdrawing;
for var i := 0 to 750 do
begin
window.Clear;
DrawRectangle(i, 0, 50 + i, 50);
redraw;
end;
end.
' Basic
' For ... Next
dim yi as integer
dim n as integer
dim z as double
dim sum as double
dim zi as double
sum = 0
print "Введите n: "
input n
for yi = 1 to n
if ((yi > 15) or (yi < 0)) then
z = 2
else
z = yi
end if
zi = (sqr(z)-z)*(sqr(z)-z)
sum = sum + zi
next
print "Сумма = ", sum;
'-----------------------------------------------------------
' While Wend
dim yi as integer
dim n as integer
dim z as double
dim sum as double
dim zi as double
sum = 0
yi = -1
print "Введите n: "
input n
while (yi < n)
if ((yi > 15) or (yi < 0)) then
z = 2
else
z = yi
end if
zi = (sqr(z)-z)*(sqr(z)-z)
sum = sum + zi
yi = yi + 1
wend
print "Сумма =", sum;
5 магических миль - 8 км
40 магических миль - х км,
Отсюда х = 40*8/5 = 64 км
Значит скорость скутера 64 км/ч, а 32 км он проедет за 32/64=1/2 часа или 30 минут
Ответ: 30 минут
Ответ:
a = int(input("введите число A"))
b = int(input("введите число B"))
с = 0
if a/2 == 0:
c = c + 1
if b/2 == 0:
c = c +
if c == 1
print("высказывание верно")