найти произведение чисел от 1 до 10
Ответы на вопрос
Ответил max22121998
0
program one;
uses crt;
var
a,b: integer;
begin
writeln('введите число');
read(b);
for a:=1 to 10 do
writeln('произведение =',a*b);
end.
uses crt;
var
a,b: integer;
begin
writeln('введите число');
read(b);
for a:=1 to 10 do
writeln('произведение =',a*b);
end.
Новые вопросы