program w7w7;
var a:real;
begin
readln (a);
if a<0 then writeln ('otritsatelnoe chislo');
if a>0 then writeln ('pologitelnoe chislo');
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var imin:=a.IndexMin;
var b:=a[:imin]; b.Println;
var c:=a[imin:]; c.Println
end.
<u>Пример</u>
n= 17
98 34 -59 -23 -65 -46 -15 -88 31 48 13 -7 70 -8 -69 65 -65
98 34 -59 -23 -65 -46 -15
-88 31 48 13 -7 70 -8 -69 65 -65
Держи)
program zad1;
var
i:integer;
a:real;
begin
a:=100000;
for i:=1 to 40 do
begin
if i<5 then
begin
a:=a*1.2;
a:=a*0.88;
writeln(i,' год ',a:0:0);
end
else
begin
a:=a*1.2;
a:=a*0.88;
a:=a-5000;
writeln(i,' год ',a:0:0);
end;
end;
<span>end.</span>
1. дано объем текста =3,5 Кб=3584 байта
в компьютерный тексте 1 символ кодируется 1 байтом
значит в тексте 3584 символа