Program Z_n;
var a:array[1..10] of byte;
i:byte;
Begin
writeln;
Randomize;
For i:=1 to 10 do begin
a[i]:=random(10);
write(a[i],' ');
if (a[i] mod 2)=0 then a[i]:=a[i]+1;
end;
writeln;
For i:=1 to 10 do
Write(a[i],' ');
end.
//PascalABC.NET
var
a,i:integer;
b:array [0..9] of boolean;
begin
Readln(a);
for i:=0 to 9 do b[i]:=false;
While a>0 do
begin
if b[a mod 10]=false then b[a mod 10]:=true;
a:=a div 10;
end;
for i:=0 to 9 do if not b[i] then Writeln(i);
end.
Один раз отмерь, один раз отрежь!
33 символа
1 символ кодируется 16 битами
33*16=528 бит=66 байт
*В формуле это выглядит так
i=16 бит
K=33
-------
I-?
I=Ki=33*16=528 бит=66 байт
//PascalABC.NET 3.0
begin
var a := ReadReal('a =');
var b := ReadReal('b =');
var c := ReadReal('c =');
b -= c;
if (a = 0) and (b = 0) then writeln('Уравнение имеет бесконченое множество корней')
else if a = 0 then writeln('Уравнение не имеет корней')
else writeln('Уравнение имеет один корень: ', -b / a);
<span>end.</span>