Program mult; var x, n, i: integer; begin write('Введите x и n через пробел'); readln(x, n); if n>0 then for i:=1 to n-1 do x:=x+x else for i=1 downto n do x:=x-x; writeln('x * n =', x) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
