Составьте программу для нахождения скорости v, если известно расстояние s и время t.

program znanija;

var v,s,t: integer;

begin

read(s,t);

v=s/t;

write(v); end.для удобства соыетую юзесы) 

1) на pascal:   var  t,i,j: integer;   a: array[1..4]of integer;   begin  for i: =1 to 4 do  begin  write('vvedite ',i,'-i 4islo: ');   readln(a);   end;   for i: =2 to 4 do  for j: =4 downto i do  if a[j-1]> a[j] then  begin  t: =a[j-1];   a[j-1]: =a[j];   a[j]: =t;   end;   writeln('raspolagaem 4isla v poryadke vozrastaniya: ');   for i: =1 to 4 do  writeln(a);   readln;   end.  2) на с:   #include < stdio.h>   #include < conio.h>   void main(void){  int n,a,b,c,d;   printf("\nvvedite 4x-znachnoe chislo n: ");   scanf("%i", & n);   a=n/1000;   b=(n-a*1000)/100;   c=(n-a*1000-b*100)/10;   d=n-a*1000-b*100-c*10;   if (a+b==c+d) printf("true");   else printf("false");   getch();   };

program 1;

uses crt;

var a,b: real;

begin  clrscr;

write('vvedite a '); readln(a);

write('vvedite b '); readln(b);

if a> b then begin a: =abs(2*a*b);                   b: =abs((a+b)/2);                   end else begin a: =abs((a+b)/2);                                   b: =abs(2*a*b);                                   end; writeln('a= ',a: 0: 2,' ','b= ',b: 0: 2); repeat until keypressed; end.