СРОЧНО! напишите программу которая получает с клавиатуры 2 целых числа и вычисляет их произведение, используя только операции сложения.



[email protected] в категроии Информатика, вопрос открыт 14.03.2018 в 20:35

пробить через repeat(постусловие) pascal abc очень прошу

1 ответ



Татьяна , ответ добавлен 14.03.2018 в 20:55

Var a,b,c,sum:integer;

begin
readln(a,b);
sum:=0; inc(a); c:=0;
repeat
sum:=sum+b;
inc(c);
until c=a;
sum:=sum-b;
writeln(sum);
end.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.