Анемподист
5 год назад
Требуется написать программу, которая получает два числа и находит их проведение, не используя операцию умножения.ВАЖНО!!!НУЖНО ИСПОЛЬЗОВАТЬ REPEAT и UNTIL
ОТВЕТЫ
Anton
Oct 24, 2020
program z1;
var A,B,C,I:integer;
begin
Writeln('введите числа');
Readln(A,B);
C:=0;
i:=1;
repeat
C:=C+A;
I:=I+1;
until i>B;
writeln(C);
end.
var A,B,C,I:integer;
begin
Writeln('введите числа');
Readln(A,B);
C:=0;
i:=1;
repeat
C:=C+A;
I:=I+1;
until i>B;
writeln(C);
end.
761
Смежные вопросы:
