с клавиатуру вводятся 2 целых числа.наЙди целую часть при делении первого числа на другое!
uses crt;
var
a,b: integer;
c: real;
begin
read (a,b);
c:= a/b;
writeln (trunc (c));
readkey;
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
с клавиатуру вводятся 2 целых числа.наЙди целую часть при делении первого числа на другое!
uses crt;
var
a,b: integer;
c: real;
begin
read (a,b);
c:= a/b;
writeln (trunc (c));
readkey;
end.