1)
uses GraphABC;
begin
Window.Title := 'Circle';
var x,y,r,i: integer;
Brush.Color := clGreen;
y:=20;
x:=70;
r:=25;
for i := 1 to 7 do
Circle(x,y+i*60,r);
end.
2)
uses GraphABC;
begin
Window.Title := 'Circle';
var x,y,r,i: integer;
Brush.Color := clGreen;
y:=20;
x:=20;
r:=30;
for i := 1 to 5 do
Circle(x+i*70,y+i*70,r);
end.
3)
uses GraphABC;
begin
Window.Title := 'Circle';
var x,y,r,i: integer;
Brush.Color := clGreen;
y:=70;
x:=30;
r:=60;
for i := 1 to 5 do
Circle(x+i*60,y,r);
end.
Переведем 60 кб в байты = 61440 байт
Одна страница равна количество строк*количество символов * размер символа (16 бит=2 байта)
40*32*2=2560 байт одна страница
Разделим общий размер реферат на размер страницы
61440/2560=24 страницы
Ответ: В (24)
В 15 задании свою фамилию поставь и посчитай. Я там пример привела...
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>