Advertisement
Guest User

Задача 1. Спиннеры

a guest
Oct 17th, 2018
151
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.25 KB | None | 0 0
  1. var A, B, C, N: longint;
  2. var i: integer;
  3.  
  4. begin
  5.  
  6. readln(A); readln(B); readln(C);
  7.  
  8. while true do
  9.   begin
  10.     if (A+B*i < C) then
  11.       begin
  12.         N := A+B*i;
  13.         i += 1;
  14.       end
  15.     else break;
  16.   end;
  17.  
  18. writeln(i - 1);
  19.  
  20. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement