<span>Наполним пятилитровую банку и перельем в трехлитровую, у нас останется 2 литра, выливаем их в ведро, потом перельем обратно 3 литра в пятилитровую и наполним ее доверху ну и опять перельем в трехлитровую, у нас опять останется 2 литра их выливаем в ведро. В ведре получилось 4 литра воды</span>
var
s,i: integer; {s,i - цел}
begin
s := 0;
for i := 1 to 5 do
s := s + i;
write(s)
end.
Vb
dim matt() as integer
dim x,y as integer
x=5
y=5
redim matt(x,y)
randomize
for a as integer = 0 to x
for b as integer = 0 to y
matt(x,y)= (rnd()*88)+11
next
next
dim i,z as integer
do
matt(i,z)=0
i+=1
z+=1
loop until (i=x and z=y)
1 символ = 1 байт = 8 бит
100*40*60 = 240000 байт = 1920000 бит
Целые или вещественные числа (real или integer)
возвращаемое значение в случае, если присутствует деление или аргумент-вещественное число, может быть только вещественным.
Например:
y=ax+b
если a, x, b - целые, то у может быть как целым, так и вещественным
если а или х или b вещественное, то у только вещественное
или
у=а/х
а и х - могут быть как целыми так и вещественными
у - в любом случае вещественное число