Ответ:
program Random3;
uses
System.SysUtils;
var
A: array [1..3] of Integer;
i: Integer;
b: Boolean;
begin
Randomize;
Write ('Три случайный числа: ');
for i := Low (A) to High (A) do begin
A [i] := Random (9) + 1;
Write (A [i], ' ');
end;
b := True;
for i := Low (A) to High (A) do
if A [i] mod 3 <> 0 then begin
b := False;
Break;
end;
WriteLn;
if b then
WriteLn ('OK')
else
WriteLn ('NO OK');
ReadLn;
end.
1 задача:650/1,39=467,6
<span>необходимо 468 дискет
2задача:</span><span>10 кб/c</span>
Var x,y:real;
begin
write('x = ');
readln(x);
if x<=-20
then y:=3*x*x*x
else if x<=30 then y:=abs(x) else y:=30;
writeln('y = ',y);
end.
Пример:
x = -5
y = 5
А) 6кб=48000бит
б) 12кб=1536байт=12288бит
в)0,001536гб=1536кб=1536000байт