Запишите на языке Паскаль программу, которая для двухзначного случайного числа определяет произведение его цифр
Запишите на языке Паскаль программу, которая для двухзначного случайного числа определяет произведение его цифр
Гость
Ответ(ы) на вопрос:
ГостьProgram Proiz;var a:integer;begin a:=Random(100); writeln('Случайное число а равно ',a); //Можно это и не писать a:=(a mod 10)*(a div 10); writeln(a)end.
ГостьProgram n1;
var a,p: integer;
begin
randomize;
a:=random(90)+10;
p:=(a mod 10)*(a div 10);
writeln('произведение цифр числа ',a,' равно ',p);
end.
Не нашли ответ?
Похожие вопросы