• Вопрос по информатике:

    Напишите программу, которая находит квадрат произведения цифр
    введенного числа

    • Автор:

      trentgregory

  • Ответ:

    var a,p:integer;beginwrite('a = ');readln(a);a:=abs(a);p:=1;while a<>0 do begin p:=p*(a mod 10); a:=a div 10; end;p:=p*p;writeln('p = ',p);end.Пример:a = 273p = 1764

    • Отвечал:

      clarahayes
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска