Ну смотри в 1 мегабайте = 10 в 20 степени байтов. Отсюда получаем, что 1 мегабайт = 1048576 байт. Теперь множим это число на 8 мегабайт и получаем 2097152 байт содержит 8 мегабайт. Учителю за такие задачи голову открутить, хорошо хоть не дал 40 мегабайт или гигобайты.
Код в Turbo Pascal: USES Graph,CRT; VAR x,y,dx,dy,Device,Mode,i: Integer; BEGIN Device:=0; InitGraph(Device,Mode,''); x:=10; y:=10; dx:=1; dy:=1; i:=1; Repeat SetColor(Cyan); Circle(x,y,10); SetFillStyle(1,3); FloodFill(x,y,Cyan); Delay(10); SetColor(Black); Circle(x,y,10); SetFillStyle(1,0); FloodFill(x,y,Black); x:=x+dx; y:=y+dy; if (x>300) OR (y>200) then begin x:=10; y:=10; i:=i+1; end;
// PascalABC.Net 3.0, сборка 1052 var s1, s2: string; a, b: real; err: integer;
begin Writeln('Введи первый катет: ');Readln(s1); Val(s1, a, err); if err <> 0 then Writeln('Ошибка при попытке получить числовое значение') else begin Writeln('Введи второй катет: ');Readln(s2); Val(s2, b, err); if err <> 0 then Writeln('Ошибка при попытке получить числовое значение') else begin Writeln('Гипотенуза равна ', sqrt(a * a + b * b)); Writeln('Площадь равна ', 0.5 * a * b) end end end.
Отсюда получаем, что 1 мегабайт = 1048576 байт.
Теперь множим это число на 8 мегабайт и получаем 2097152 байт содержит 8 мегабайт.
Учителю за такие задачи голову открутить, хорошо хоть не дал 40 мегабайт или гигобайты.