Пожалуста помгите решить задачу по поскале abc Составить программу рассёчата отнашения чисел а и б с округлением
5-9 класс
|
результата.
program otnoshenie;
uses Crt;
var
a,b:integer;
begin
write('a=');
readln(a);
write('b=');
readln(b);
if (a<>0) and (b<>0) then
begin
writeln('a/b=',round(a/b));
writeln('b/a=',round(b/a));
end else
writeln('Ошибка ввода');
end;
Другие вопросы из категории
минимальный элементы. выведите на экран исходный и полученый массивы
запропонувати дівчинка, та дії, які слід виконати при цьому в кожному із випадків.
Спосіб 1. Використовуємо елементи вікна середовища.
Спосіб 2. Використовуємо вкладку Скрипти.
операцией группировки объектов?
Читайте также
Составьте программу, позволяющую определить, будет ли введённая строка перевёртышем после удаления из неё всех пробелов
задачи вместе; Петя решил на 2 задачи больше, чем Вася; Илья решил меньше задач, чем Коля; Никита решил больше задач, чем Илья, но меньше, чем Вася; каждый решил хотя бы по одной задаче.