igorich1376

Pies

Oct 29th, 2024
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.33 KB | None | 0 0
  1. ## //пирожки
  2. var a := 10;
  3. var b := 15;
  4. var n := 2;
  5. var (&result_rub, &result_kop) := (0,0);
  6. if (b*n>99) then &result_kop := b*n div 100 else &result_kop := b*n;
  7. if (&result_kop<10) then
  8.   begin
  9.     &result_rub := a*n+&result_kop;
  10.     &result_kop := 0;
  11.   end
  12. else &result_rub := a*n;
  13. Print(&result_rub, &result_kop)
Advertisement
Add Comment
Please, Sign In to add comment