напишите программу которая получает два целых числа и находит их произведение не используя операцию умножения. учтите что числа могут быть
10-11 класс
|
отрицательными.На Turbo Pascal пожалуйста срочно!!!!!Зарвнее спасибо!
Вот. Умножение без помощи операции умножения. Делай лучшим) program pr; var i,a,b:integer;p:real; begin write('Первый множитель: '); readln(a); write('Второй множитель: '); readln(b); if b<0 then begin b:=-b; for i:=1 to b do begin p:=p+a; end; writeln(-p:0:2); end else begin for i:=1 to b do p:=p+a; writeln(p:0:2) end; end.
Другие вопросы из категории
двух цифр после запятой
2.В чем заключается принцип организации диалога "компьютер-пользователь" с помощью меню?
Помогите,пожалуйста! Заранее огромное спасибо)
Напишите программу, подсчитывающую количество
различных букв в заданном слове.
Входные данные: ввести строкy Y с длиной не более 255 символов.
Читайте также
отрицательными.пример :введите два числа: 10-15,10*(-15)=-150