Задать вопрос
10 марта, 23:53

Найти произведение цифр четырехзначного числа на языке алгол

+1
Ответы (1)
  1. 11 марта, 00:21
    0
    Вот процедура нахождения произведения цифр четырехзначного числа, написанная на языке Алгол-60

    realprocedure prodig (n) ;

    value n; integer n;

    begininteger i, p;

    integer procedure mod (a, b) ;

    value a, b; integer a, b;

    begin

    mod:=a-a:b*b

    end mod;

    p:=1;

    for i:=1 step 1 until 4 do

    begin

    p:=p*mod (n, 10) ;

    n:=n:10;

    end;

    prodig4:=p

    end prodig4;
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти произведение цифр четырехзначного числа на языке алгол ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы