//Pascal ABC.NET 3.1 сборка 1256

Var
x,s,i:integer;
begin
randomize;
s:=0;
i:=0;
while s<1700000 do
begin
inc(i);
x:=random(150001);
s:=s+x;
writeln('Месяц:',i,', своровал:',x,', сумма на текущий момент:',s);
end;
writeln('Res=',i);
end.

0 0

4 года назад

Скласти алгоритм розв*язання лінійного рівняння a*x+b=0

poleego [1]

Хоть какие числа будут даны чтоб решать данное уравнение ? Если а и б то алгоритм будет выглядеть так:
a*x+b=0 -> a*x=(-b) -> x=(-b)/a

0 0

4 года назад

Тема: система счисления сравните числа 71(10 степени) и 1000111(2степени)

mars

1000111 = 71(10 степени)
71=1000111

0 0

4 года назад

Рябят,помогите пожалуйста очень надо.Мне эту фигню надо здать завтра,а информатика для меня чёрный лес.кто знает на это ответы н

Шереметева

<em />

1) 473, 2) 71,3125 3) 40420

2. в 2: 111001101011

в 8: 7153

в 16: e6b

0 0

3 года назад

Прочитать ещё 2 ответа