Question

Создайте программы на языке PascalABC:
1) Введите два числа (например A=5 и В=8) и найдите их произведение, используя цикл с постусловием и только операцию сложения.
2) Введите два числа (например A=45 и В=8) и найдите их остаток от деления нацело, используя цикл с постусловием и только операцию вычитания.
3) Определить значение переменной S после выполнения следующих операторов:S:=6; i:=3;Repeat S:=S+5 div i; i:= i – 1;Until i

Answer 1

Var
a,b,i,r:integer;
begin
writeln('введите значения для A и B');
readln(a,b);
i:=0;
r:=0;
repeat
r:=r+b;
i:=i+1;
until i=a;
writeln('ответ ',r)
end.

Var
a,b,i,r:integer;
begin
writeln('введите значения для A и B');
readln(a,b);
i:=a;
r:=0;
repeat
i:=i-b;
r:=i;
until i<b;
writeln('ответ ',r);
end.