<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var Число := ReadInteger('Введите натуральное число:');
var (Четных, Нечетных) := (0, 0);
while Число > 0 do
begin
if (Число mod 10).IsOdd then Inc(Нечетных)
else Inc(Четных);
Число := Число div 10
end;
Println('Нечетных', Нечетных, 'четных', Четных)
end.
<h2>Введите натуральное число: 1406439</h2><h2>Нечетных 3 четных 4 </h2>
Параметры моделирования: 1. Классификация текстового документа 2. Основные понятия 3. Создание текстового документа Ход работы 1. Текстовый документ: обычный текст-страница, абзац, строка, слово, символ Таблица – строка, столбец, клетка Программный текст – строка , символ Внедренные объекты – рисунок, электронная таблица, диаграмма, другие объекты 2. Основные понятия и действия - строка заголовка, строка меню, стандартная панель, панель форматирования, маркеры отступа, линейка, ползунок, курсор, строка состояния, рабочая область, полоса прокрутки. 3. Создание документа – запуск программы, набор текста, форматирование, печать.
Программа просит числитель и знаменатель обеих дробей через пробел и выдает произведение
Var m,n :integer;
begin
readln(n,m);
if n mod m = 0 then
writeln(' делится ')
else
writeln('неделится');
end.
(отметь как лучшее пжл)