1 задача:650/1,39=467,6
<span>необходимо 468 дискет
2задача:</span><span>10 кб/c</span>
Var a,n:integer;
begin
writeln('Введите n');
readln(n);
for a:=10 to 99 do
if (a mod n =0)then writeln(a);
<span>end.</span>
3Мбайт = 3*1024*8 Кбит = 24576 Кбит
24576 / 2048 = 12 сек
t = 12 сек
{a}
var x: integer;
begin
read(x);
write( (x mod 10 + x div 10 mod 10 + x div 100) mod 2 = 0 )
end.
{b}
var a,b,c: integer;
begin
read(a,b,c);
write( (a <> b) and (b <> c) and (a <> c) )
end.
Смотри полученные данные и саму гистограмму в прикреплённых картинках.