Написать в паскаль abc 1) напишите программу, перемножающую целые числа без использования операции < < * > > . например, при умножении целых чисел n*m число m надо сложить само с собой n раз (m+m++m). 2) напишите программу возведения числа в целую степень. число и степень запрашивайте у пользователя.

204

470

Посмотреть ответы 3

Ответы на вопрос:

ваня10001

Информатика

4,6(61 оценок)

Uses crt; var x,y,pr,i: integer; begin pr: =0; write('1 множитель: '); readln(x); write('2 множитель: '); readln(y); for i: =1 to x do pr: =pr+y; writeln('произведение: ',pr); end.uses crt; var x,y,st,i: integer; begin st: =1; write('число: '); readln(y); write('степень: '); readln(x); for i: =1 to x do st: =st*y; writeln('результат: : ',st); end.

krissalis9

Информатика

4,6(82 оценок)

Опишу только момент, в котором вся суть, т.е. без ввода данных и т.д.: for i: =1 to (на сколько надо умножить) do k: =k+a {k-итоговая сумма, перед циклом к=0, в конце к< > 0; a-вводимое число} таким же образом поступаем и с умножением