Предмет: Информатика,
автор: EgasVegas
Требуется написать программу, которая получает два числа и находит их проведение, не используя операцию умножения.
ВАЖНО!!!НУЖНО ИСПОЛЬЗОВАТЬ REPEAT и UNTIL
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Алгебра,
автор: evgeniabrativnik
Предмет: Английский язык,
автор: zbabazan786
Предмет: Русский язык,
автор: zandauletzandaulet24
Предмет: Алгебра,
автор: Аноним
Предмет: Литература,
автор: icavkreshNfhn