program znanija;
var
a,c:integer;
begin
a:=Random(0,100);
while c <> a do
begin
readln(c);
if c>a then
writeln('Число больше чем загаданное');
if c<a then
writeln('Число меньше чем загаданное');
if c=a then
writeln('ПОБЕДА!');
end;
end.
Можно задачу решать так, как показано ниже (с использованием констант), а можно все данные вводить с клавиатуры.
const xn=-1.5; xk=1.5; h=0.1; b=2;
var x,y:real; i,n:integer;
begin
x:=xn-h;
n:=round((xk-xn)/h)+1;
writeln(' x y');
for i:=1 to n do
begin
x:=x+h;
if x<1 then y:=x*x-b*sqrt(abs(b*b-x))
else if x<9 then y:=cos(2*x)-x*x*x
else y:=ln(abs(2.7*x*x-exp(x)));
writeln(x:4:1,y:8:3);
end;
<span>end.
</span>
function Contains0(n : integer): boolean;
begin
while n > 0 do
if n mod 10 = 0 then
begin
Result := True;
Exit
end
else
n := n div 10;
end;
begin
var M := ArrRandom(22, 1, 999);
M.Println;
var k := 0;
M.Where(p -> Contains0(p)).Foreach(p -> begin Print(p); Inc(k) end);
Writeln(NewLine, k)
end.
Элементарно, умножь Гб на 1024, получится 2560 Мб. А в одном байте 8 бит, значит делим, 63035,875 байт