Advertisement
Guest User

Untitled

a guest
Nov 21st, 2017
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.37 KB | None | 0 0
  1. var
  2. Vo: integer;
  3. t: integer;
  4. a: integer;
  5. S: real;
  6. begin
  7.   Writeln('Введите начальную скорость в метр в секунду');
  8.     Read(Vo);
  9.   Writeln('Введите время в секундах');
  10.     Read(t);
  11.   Writeln('Введите ускорение в м/с^2 ');
  12.     Read(a);
  13.   S:=Vo*t+a*sqr(t)/2;
  14.   Writeln(S,' метров');
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement