Question

Информатика 9 класс!!! Очень срочно!!

Answer 1

1)var  f, s, n, x: integer;  res: real;Begin  write('Кол-во пассажиров: ');  readln(n);  write('Стоимость билетов: ');  readln(x);    res:= (n - n * 0.25) * x + 0.2 * x * (n * 0.25);  writeln(res);End. 

2)var  x1, x2, y1, y2: real;Begin  write('х1, y1: ');  readln(x1, y1);  write('х2, y2: ');  readln(x2, y2);    writeln(sqrt(sqr(x2 - x1) + sqr(y2 - y1)));End.