Var mas: array [1..6] of integer;
var i, b, sum: integer;
begin
for i:=1 to 6 do mas[i]:=random(101);
b:=0;
while i<=6 do if mas[i] mod 2<>0 then
begin
b:=i;
i:=7;
end
else inc (i);
sum:=0;
for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i];
writeln (b);
writeln (sum);
<span>end.</span>
А) Программное обеспечение
б) О<span>перационная система
в) Приложения</span>
ASCII - 1 байт на символ
15*s*25*1 = 175.8*1024 байт
s = 175.8*1024/15/25/1 = 480.0512
значит строк немного больше 480
Program p1;
var x1,x2,y1,y2:integer;
function dlina(xx1,yy1,xx2,yy2:real):integer;
begin
dlina:=round(sqrt(sqr(xx1-xx2)+sqr(yy1-yy2)));
end;
begin
writeln('Введите координаты первой точки');
readln(x1,y1);
writeln('Введите координаты второй точки');
readln(x2,y2);
writeln('Расстояние между точками:',dlina(x1,y1,x2,y2));
end.