Вопрос составьте программу, вычисляющую А*В, не пользуясь операцией умножения. А и В любое натуральное числ

[mol4a]

Написать программу через 3-и цикла (while, repeat,for)

 

[leo5223]

так побыстрее будет: PROGRAM q195235847; var A, B, C, i :LongInt; BEGIN A := 1000; B := 628; i := 0; C := 0; WHILE (1 shl i) < B DO BEGIN IF ((1 shl i) and B <> 0) THEN C := C + (A shl i); inc(i); END; WriteLn(C); END.