<span><span>program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
while (i<=15) do
begin
</span>s := s + i*cos(i*x); <span>
i := i + 1;
end;
writeln('S= ', s:0:2);
end.</span><span>а вот с repeat until
program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
repeat
</span>s := s + i*cos(i*x); <span>
i := i + 1;
until i>15;
writeln('S= ', s:0:2);</span></span>
Данные это то что у тебя есть то что ты знаешь а информация это то что ты узнаешь что то новое для себя
Зависит от того, в чем проблема. Проверенный метод - перезагрузить, если не получается отключить питание. Если при последующих включениях также будет зависать, значит проблема кроется внутри компьютера. Возможная причина, нехватка оперативной памяти, либо, если компьютер давно не чистился от пыли, то его стоит почистить и возможно, это поможет. Еще одна возможная причина - если компьютер достаточно старый, то виной может быть износ процессора или других его компонентов. В данном случае зависит от ошибки, которую компьютер выдает при включение. Если её нет, значит проблема из списка выше
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)
