Advertisement
Guest User

Untitled

a guest
Apr 10th, 2020
154
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.41 KB | None | 0 0
  1. Program OhDuck;
  2. var
  3.     a, b, Vkmh: real;
  4. begin
  5.     readln (a);
  6.     readln (b);
  7.     Vkmh := b*3.6;
  8.     if (a > Vkmh) then begin
  9.         writeln ('скорость в километрах в час больше');
  10.     end else if (a < Vkmh) then begin
  11.         writeln ('скорость в метрах в секунду больше');
  12.     end else begin
  13.         writeln ('oni ravny');
  14.         end;
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement