Program upr;
uses crt,GraphABC;
var pic:Picture; R,c:integer; b:string;
begin
SetWindOwSize(640,450);
write('Введите расстояние от предмета до зеркала(1-100):');
Readln(R);
pic:=Picture.Create('raskraska-shenok18.jpg');
pic.load('raskraska-shenok18.jpg');
Pic.Draw(320+R,100,200,290);
Pic.Draw(320-R,100,-200,290);
Setpencolor(clgreen);
Setpenwidth(5);
lINE(320,50,320,400);
LINE(50,400,590,400);
Setpenwidth (2);
Line(trunc(120+r/2),100,TRUNC(520-r/2),100);
END.
Капец, ну ты и тупой,конечно, просто нужно все перемножить (перевести минуты в секунду) и поделить на 1024, чтобы получилось в Мб
ОТВЕТ: 90*25*512=1152000Кб/1024=1125Мб/1024=1,098...Гб и т. д.
Орган зрения ,<span>с </span>помощью<span> глаз люди различают цвета, </span>воспринимают<span> зрительную</span>информацию<span>, к которой </span>относятся<span> и текстовая, и числовая, и графическая; ... Практически около 90% </span>информации человек<span> получает при помощи органов зрения (</span>визуальный<span>)</span>
Program programma;
uses crt;
var i: integer;
a:array [1..15] of integer;
begin clrscr;
randomize;
for i:=1 to 15 do
a[i]:=random(200)-100;
writeln('Массив:');
for i:=1 to 15 do
write(a[i]:5);
for i:=1 to 15 do
begin
a[i]:=-a[i];
if (a[i]<-50) then a[i]:=a[i]*2;
end;
writeln;
writeln;
writeln('Новый массив:');
for i:=1 to 15 do
write(a[i]:5);
READLN;
end.
Смотри на фото. Будут вопросы - задавай.
это когда 1 "ферма" по 4 овцы, 0 "амбаров" по 1 одинокая овечка.