Var x,y,i,s:integer;
begin
s:=1;
writeln('введите числа x и y');
write('x='); readln(x);
write('y='); readln(y);
for i:=x to y do s:=i*s;
writeln('произведение чисел от ',x,' до ',y,' =',s);
end.
Пример работы:
введите числа x и y
x=2
y=5
произведение чисел от 2 до 5 =120
A = int(input())
b = int(input())
if a % 9 == 0 and b % 10 == 0:
print((a ** 3) + (b ** 3))
else:
a += 12
b += 12
print(a,b)
Var t,v:integer;
begin
readln(t,v);
writeln(v*t);
<span>end.</span>
Блок-схема - в прилагаемом файле.