fork download
copy 
  1. program keisan;
  2. var
  3.     a, b, wa, sa, seki, amari: Integer;
  4.     syou: Real;
  5. begin
  6.     WriteLn;
  7.     Write('数値Aを入力してください: ');
  8.     ReadLn(a);
  9.     Write('数値Bを入力してください: ');
  10.     ReadLn(b);
  11.  
  12.     wa := a + b;
  13.     sa := a - b;
  14.     seki := a * b;
  15.  
  16.     if b <> 0 then
  17.     begin
  18.         syou := a / b;
  19.         amari := a mod b;
  20.     end
  21.     else
  22.     begin
  23.         syou := 0;  { 0除算防止 }
  24.         amari := 0; { 余りも仮で0 }
  25.     end;
  26.  
  27.     WriteLn('AとBの和は ', wa);
  28.     WriteLn('AとBの差は ', sa);
  29.     WriteLn('AとBの積は ', seki);
  30.  
  31.     if b <> 0 then
  32.     begin
  33.         WriteLn('AとBの商は ', syou:0:2);  { 小数点以下2桁 }
  34.         WriteLn('AをBで割った余りは ', amari);
  35.     end
  36.     else
  37.     begin
  38.         WriteLn('Bが0のため、商は計算できません。');
  39.         WriteLn('Bが0のため、余りは計算できません。');
  40.     end;
  41. end.
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
10
3
stdout
copy 
数値Aを入力してください: 数値Bを入力してください: AとBの和は 13
AとBの差は 7
AとBの積は 30
AとBの商は 3.33
AをBで割った余りは 1
https://ideone.com/jbdsI4
language:
Pascal (fpc 3.0.4)
created:
12 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!