Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
самое близкое число, к числу 25952, которое читается одинаково слева направо и справа налево это число: 26062.
26062 - 25952 = 110 секторов проверила программа за 2 секунды
110 : 2 = 55 секторов проверяет программа за секунду
я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))
vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;
end.
а столбчатая диаграмма
б график
в ярусная диаграмма
г областная диаграмма
дкруговая диаграмма
program divisors;
var
n,i: integer;
begin
readln(n);
for i: =n downto 1 do if n mod i = 0 then write(i,' ');
Популярные вопросы