Ввести два числа и вывести их произведение на экран
Ввести два числа и вывести их произведение на экран
Гость
Ответ(ы) на вопрос:
Гость// Произведение целых чисел
var
p: real;
i: integer;
n: integer;
x: real;
begin
write('Введите число множителей: ');
n := ReadInteger;
p := 1;
for i:=1 to n do
begin
write('Введите множитель: ');
x := ReadReal;
p := p*x;
end;
writeln('Произведение равно ', p);
end.
Гость' VBScript
a=InputBox("Введите первое число")
b=InputBox("Введите второе число")
MsgBox a*b,0,"Произведение введенных чисел"
Не нашли ответ?
Похожие вопросы