Написать программу нахождения объема сферы?
Написать программу нахождения объема сферы.
На языке Pascal.
Нужно написать программу на pascal abc?
Нужно написать программу на pascal abc.
Нужно написать программу на pascal abc?
Нужно написать программу на pascal abc.
Составить программу на языке pascal abc?
Составить программу на языке pascal abc.
По алгоритму (Алгоритм приложен).
Нужно написать программу pascal abc?
Нужно написать программу pascal abc.
Пожалуйста, помогите?
Пожалуйста, помогите.
Нужно написать код программы на языке Pascal.
Помогите написать программу в Pascal abc?
Помогите написать программу в Pascal abc.
Написать программу на нахождение суммы отрицательных четных чисел на языке Pascal ABC?
Написать программу на нахождение суммы отрицательных четных чисел на языке Pascal ABC.
Написать программу вычисления pascal abc?
Написать программу вычисления pascal abc.
Написать программу вычисления Pascal abc?
Написать программу вычисления Pascal abc.
Если вам необходимо получить ответ на вопрос Написать программу на языке Pascal (ABC)?, относящийся к уровню подготовки учащихся 5 - 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.
Var x, k3, k5 : integer ;
begin repeat readln(x) ; if (x mod 3 = 0) and (x > 0) then inc(k3) ; if (x mod 5 = 0) and (x > 0) then inc(k5) ; until x = 0 ; if k3 > k5 then writeln('Кратных 3 больше на', k3 - k5, ' числа') else if k5 > k3 then writeln('Кратных 5 больше на', k5 - k3, ' числа') else writeln('Одинаково') ;
end.