Program abc;
var a:real;
begin
readln (a);
if (a>0) then a:=a+1 else a:=a-1;
writeln (a);
readkey;
end.
Паскаль
program sss;
var i,n:integer;
begin readln(n);
for i:=1 to n-1 do write(2*i-1,' ');
writeln(2*n-1)
end.
Проследим действия:
(3+4)х4:(8-6)=14
7х4:2=14
28:2=14
14=14
в чем сложность?:)
Const N = 99;
var i, j, t: integer;
flag: boolean;
mas: array[1..N]of integer;
begin
randomize;
i := 0;
while i < N do
begin
t := Random(1, 99);
flag := true;
for j := 1 to i do
if t = mas[j] then
begin
flag := false;
Break
end;
if flag then begin
i := i + 1;
mas[i] := t
end
end;
for i := 1 to N do
write(mas[i], ' ')
end.
1 Кб = 1024 Байт = 8192 Бит
1 Мб = 1024 Кб = 1048576 Байт = 8388608 Бит
1 Гб = 1024 Мб = 1048576 Кб = 1073741824 Байт = 8589934592 Бит