Ответы на вопрос:
var a,b: integer;
begin
write ('Введите а = ');
readln (a);
write ('Введите b = ');
readln (b);
if b<> 0 then begin
writeln('Целая часть = ', a div b);
writeln('Остаток = ', a mod b);
end
else
writeln('Ошибка! Деление на 0!');
end.
Популярно: Информатика
-
НастюшКа5047128.02.2021 07:32
-
doc251023.07.2022 05:54
-
fhlurx19.02.2021 08:42
-
EgorWater12.12.2020 11:48
-
arturveryelecki19.03.2022 17:06
-
Алика66624.07.2022 12:13
-
aydanxudieva1418.02.2021 03:42
-
kitty6706.09.2022 14:45
-
AlinaNeizvestnaya2016.03.2021 20:28
-
smarika8317.12.2020 22:49