введте 2 числа (например А=45 В=8)и найдите их произведение,используя только операцию сложения.Нарисуйте блок схему используя цикл с предусловием. я люблю баскетбол
program a1; var a,k,b,s:integer; begin k:=0; s:=0; write('введите число' ); readln(a); k:=k+1; write('введите число '); readln(b); while k<>b do begin s:=s+a; k:=k+1; end; write(s); end.
