Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Ойбек
11.04.2021, 13:28
Информатика

Напишите программу, которая вводит два целых числа и находит их произведение, не ис пользуя операцию

умножения. Учтите, что числа могут быть отрицательными. ( Паскаль)
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Завия
var a,b,p,i,z:integer; begin writeln('a'); readln(a); writeln('b'); readln(b); z:=b; if b<0 then z:=-b; for i:=1 to z do begin p:=p+a; end; if b<0 then p:=-p; writeln('p=',p); end. 0