integer11-20

Решение задач. День шестой. Задачи Integer 11-20.

Здравствуйте, дорогие читатели и юные поклонники программирования. Что является важнейшим этапом  изучения программирования? Решение задач! Именно этим мы с вами сегодня и займемся. Целых десять задач  Integer11-20.  Если для вас эти задачи уже слишком легки, вы решаете их с закрытыми глазами и уже чувствуете, что готовы к следующему этапу обучения, то вам следует приготовиться. Следующий урок будет про особенности  PascalABC.NET.  Но не волнуйтесь, вместе с нами вы познаете почти все тонкости Паскаля в его современной интерпретации.

Integer11°. Дано трехзначное число. Найти сумму и произведение его цифр.

Решение Показать

Integer12. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.
Решение Показать

Integer13. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.
Решение Показать

Integer14. Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число.
Решение Показать

Integer15. Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213).
Решение Показать

Integer16. Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).
Решение Показать

Integer17. Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду сотен в записи этого числа.
Решение Показать

Integer18. Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду тысяч в записи этого числа.
Решение Показать

Integer19. С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала суток.
Решение Показать

Integer20°. С начала суток прошло N секунд (N — целое). Найти количество полных часов, прошедших с начала суток.
Решение Показать

 

Вот и все, дорогие друзья! Ждите новые уроки и заходите к нам на сайт почаще. Если вам понравилась эта статья, обязательно расскажите о нас вашим друзьям из любой социальной сети, может быть, они тоже хотят стать великими программистами!

  • petanisimov

    в integer12 можно без переменных

    read(a);
    write(a mod 100 mod 10);
    write(a mod 100 div 10);
    write(a div 100);

  • Дима Белоусов

    решение Interger11 неправильно, но у меня решение с четырёхзначным числом
    ВОТ РЕШЕНИЕ:
    program z2;
    var tusyachi,sotni,desyatki,edinizi,chislo,sum,proizv:integer;
    begin
    write(‘Четырёхзначное число=’);
    read(chislo);
    tusyachi:= chislo div 1000;
    sotni:= chislo div 100;
    sotni:= sotni mod 10;
    desyatki:= chislo div 10;
    desyatki:=desyatki mod 10;
    edinizi:= chislo mod 10;
    sum:= tusyachi+sotni+desyatki+edinizi;
    proizv:=tusyachi*sotni*desyatki*edinizi;
    writeln (‘Сумма всех цифр числа=’, sum);
    writeln (‘Произведение всех цифр числа=’, proizv);
    end.

    • alen_marzz

      У Вас написано то же самое, только развернуто. Правильности в этом решении столько же, сколько и в нашем, рациональности — немного меньше

  • Омар Шайхалиев

    Спасибо большое за сайт, но раздражают русские названия переменных. В программировании такого не должно быть!!!

    • alen_marzz

      Да. Мне тоже они не нравятся, но в основном так понятнее