INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "корней нет"
END
END IF
IF d > 0 THEN
PRINT "x1="; (-b - SQR(d)) / 2 / a
PRINT "x2="; (-b + SQR(d)) / 2 / a
ELSE PRINT "x="; (-b) / 2 / a
END IF
Сейчас вычисления совсем другие, не такие как раньше. Вычисляют погоду, ядерные реакции, движение планет. Но и задачи на компьютеры возлагают разные.Раньше не было персональных компьютеров. А сейчас они есть в довесок к супер компьютерам. Некогда раньше была принята стратегия популизировать ПК из военной сферы и области образования в область персонального использования. Поэтому сейчас пользоваться компьютером стало легче. Этому даже учат в школе. Все развивается. И растут области применения ПК.
1)
var
a:array[1..10] of integer;
i:integer;
begin randomize;
for i:=1 to 10 do a[i]:=random(100)-40;
writeln;i:=1;
while i<=10 do begin
if a[i]<0 then begin a[i]:=0;
i:=11;end;
inc(i);
end;
for i:=1 to 10 do write(a[i]:3);
<span>end.
2)
var a:array[1..10] of integer;
i:integer;
begin
for i:= i to 10 do read(a[i]);
</span>for i:= i to 10 do<span>
if a[i] mod 3 =0 then a[i]:=a[i]*3;
</span>for i:= i to 10 do write(a[i]);
end.
var s,n:integer;
begin
s:=0;
n:=0;
while s<65 do begin
s:=s+6;
n:=n+2;
end;
writeln(n);
end.
Ответ: 22.
P.s скопируй в паскаль и сам проверь
Канал у вас что-то уж совсем узенький :)
1. Способ с архивированием.
Архивация: 18 с.
Передача: 4*1024*1024*8:220~=152520,145 с.
Распаковка: 2 с.
итого: 18+152520,145+2=152540,145 с.
2. Способ без архивирования.
Передача: 16*1024*1024*8:220=610080 с.
Конечно, с архивированием, почти вчетверо быстрее :)