Частное двух целых чисел

Посмотреть архив целиком
program Chastnoe_dvux_zelix_chisel;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b:integer;
x:real;
begin
writeln('Vvedite delitel');
readln(a);
writeln('Vvedite delimoe');
readln(b);
if b=0 then writeln('Na nol delit nelzia')
else begin
x:=a/b;
writeln('Delenie ',a,' na ',b,' ravno',x:5:2)
end;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.