Написать программу «Стоимость билета в поезде». Программа запрашивает рас-стояние между населёнными пунктами, тип поезда (скорый, пассажирский) и вычисляет стоимость билета. За каждые полные и неполные 100 км пути берётся по 2 рубля. Надбавка за скорость составляет 1 0% от стоимости билета.

Объяснение:

Dudhrururu44585tudururuurur8tut 6658tt8tititudururuurur8tut gy8tititi5jtyt85rjrjr8

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.