fork download
  1. program keisan;
  2. var
  3. a, b, seki, amari : Integer;
  4. x, y, syo : Real;
  5.  
  6. begin
  7. WriteLn('Aの値を入力してください:');
  8. ReadLn(a);
  9. WriteLn('Bの値を入力してください:');
  10. ReadLn(b);
  11.  
  12. seki := a * b;
  13. amari := a mod b;
  14. x := a + b;
  15. y := a - b;
  16. syo := a / b;
  17.  
  18. WriteLn('AとBの積は:', seki);
  19. WriteLn('AとBの和は:', x:5:2);
  20. WriteLn('AとBの差は:', y:5:2);
  21. WriteLn('AとBの商は:', syo:5:2);
  22. WriteLn('AをBで割った余りは:', amari);
  23. end.
Success #stdin #stdout 0s 5320KB
stdin
35
12
stdout
Aの値を入力してください:
Bの値を入力してください:
AとBの積は:420
AとBの和は:47.00
AとBの差は:23.00
AとBの商は: 2.92
AをBで割った余りは:11