Надо составить программу в паскале. известны координаты трех точек a(x1,y1), b(x2,y2), c(x3,y3). найти - id288089820200822 от gaviren 22.08.2020 18:22

Question

Информатика: Надо составить программу в паскале. известны координаты трех точек a(x1,y1), b(x2,y2), c(x3,y3). найти расстояние ас+ав.

gaviren · Accepted Answer

Если программа нужна на паскале и если считать, что числа, кратные и 100 и 11 записываются в оба файла, то программа будет такой:
var t,t1,t2,t3:text;n,a,i:integer;
begin
Assign(t,'input.txt');reset(t);
Assign(t1,'a.txt');rewrite(t1);
Assign(t2,'b.txt');rewrite(t2);
Assign(t3,'c.txt');rewrite(t3);
readln(t,n);
for i:=1 to n do
begin
read(t,a);
if a mod 100 = 0 then write(t1,a,' ');
if a mod 11 = 0 then write(t2,a,' ');
if (a mod 100<>0)and(a mod 11<>0) then write(t3,a,' ');
end;
Close(t);Close(t1);Close(t2);Close(t3);
end.

Надо составить программу в паскале. известны координаты трех точек a(x1,y1), b(x2,y2), c(x3,y3). найти расстояние ас+ав.

MOGZ ответил