Произведение цифр трехзначного числа

      Комментарии к записи Произведение цифр трехзначного числа отключены

Главная Форумы Программирование Программирование на Pascal Произведение цифр трехзначного числа

Помечено: 

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 4 мес., 4 нед. назад.

  • Автор
    Сообщения
  • #3752

    Программа вычисляет произведение цифр, заданного пользователем трёхзначного числа.

    Решение:

    program line_6;
    uses crt;
    var
      a, pr: integer;
    begin
      clrscr;
      write('a = '); readln(a);
      pr:=1;
      pr:=pr*(a div 100);
      pr:=pr*(a mod 10); a:=a div 10;
      pr:=pr*(a mod 10);
      write('Произведение цифр = ', pr);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.