fork download 
  1. program keisan; 
  2.  
  3. var 
  4.  
  5.   a, b, seki, amari : Integer; 
  6.  
  7.   x, y : Real; 
  8.  
  9.   syo : Real; 
  10.  
  11.  
  12.  
  13. begin 
  14.  
  15.   WriteLn('Aの値を入力してください:'); 
  16.  
  17.   ReadLn(a); 
  18.  
  19.   WriteLn('Bの値を入力してください:'); 
  20.  
  21.   ReadLn(b); 
  22.  
  23.  
  24.  
  25.   seki := a * b; 
  26.  
  27.   x := a + b; 
  28.  
  29.   y := a - b; 
  30.  
  31.  
  32.  
  33.   WriteLn('AとBの積は:', seki); 
  34.  
  35.   WriteLn('AとBの和は:', x:5:2); 
  36.  
  37.   WriteLn('AとBの差は:', y:5:2); 
  38.  
  39.  
  40.  
  41.   if b = 0 then 
  42.  
  43.   begin 
  44.  
  45.     WriteLn('Bが0なので、割り算と余りは計算できません。'); 
  46.  
  47.   end 
  48.  
  49.   else 
  50.  
  51.   begin 
  52.  
  53.     syo := a / b; 
  54.  
  55.     amari := a mod b; 
  56.  
  57.     WriteLn('AとBの商は:', syo:5:2); 
  58.  
  59.     WriteLn('AをBで割った余りは:', amari); 
  60.  
  61.   end; 
  62.  
  63. end. 
  64.  
  65.  
Success #stdin #stdout 0s 5320KB
comments (?)
stdin 
25
3
stdout 
Aの値を入力してください:
Bの値を入力してください:
AとBの積は:75
AとBの和は:28.00
AとBの差は:22.00
AとBの商は: 8.33
AをBで割った余りは:1
https://ideone.com/VrTwxR
language:
Pascal (fpc 3.0.4)
created:
3 days 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!