Главная

Сумма и произведение цифр случайного трехзначного числа

пт, 01/31/2014 - 13:51 — tech
Задача: 

Сгенерировать случайное число, вывести на экран это число, а также сумму и произведение его цифр.

Алгоритм решения задачи: 
  • random(900) генерирует случайное число от 0 до 899. Если прибавить к нему 100, то получится диапазон от 100 до 999 включительно, т. е. охватывает все трехзначные числа.
  • Чтобы извлечь из числа цифру сотен надо его разделить нацело на 100.
  • Для получения цифры десяток можно сначала разделить нацело на 10, а затем найти остаток от деления на 10.
  • Единицы извлекаются путем нахождения остатка от деления числа на 10.
Программа на языке Паскаль:  

var
        n: integer;
        a,b,c: byte;
begin
        randomize;
        n := random(900) + 100;
        writeln(n);
        a := n div 100;
        b := n div 10 mod 10;
        c := n mod 10;
        writeln('Сумма: ',a+b+c);
        writeln('Произведение: ',a*b*c);
end.

Пример выполнения программы:

536
Сумма: 14
Произведение: 90

  • Добавить комментарий

Комментарии

чт, 04/17/2014 - 20:28 — Гость

Меньшее количество строк

var
        a, b, c: byte;
begin
        randomize;
        a:=random(8)+1;
        b:=random(9);
        c:=random(9);
        writeln(a, b, c);
        writeln('Сумма: ',a+b+c);
        writeln('Произведение: ',a*b*c);
end.

//Всё очевидное - просто.

  • ответить
Пнд, 09/29/2014 - 22:32 — Гость

randomize;

Зачем нужно писать "randomize"?

  • ответить
Втр, 09/30/2014 - 10:29 — tech

Чтобы при каждом выполнении

Чтобы при каждом выполнении программы числа были разными. Попробуйте не писать и сравните.

  • ответить
пт, 04/18/2014 - 08:50 — tech

)) это хитрость.

)) это хитрость.

  • ответить