Вычисление целой  части  от  деления  одного числа на другое — Pascal(Паскаль)

Program Pro_45 (Input, Output);
Var 
X, Y: Real;
Res : LongInt; 
 
Begin
 
WriteLn ('PASCAL: Вычисление целой части от деления одного числа на другое.');
Write ('Введите первое число: '); 
ReadLn (X); 
Write ('Введите второе число: '); 
ReadLn (Y); 
 
If (Y <> 0) 
Then 
Begin
Res := Trunc (X / Y); 
Writeln('Целая часть от деления = ', Res); 
End
Else 
Writeln('Деление невозможно.');
 
ReadLn;
End.

Leave a Comment

− 2 = 6