Создайте программы на языке 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

Предыдущий
вопрос Следующий
вопрос

Программа 1:

program MultiplicationUsingAddition;
var
A, B, product, i: integer;
begin
writeln('Enter two numbers:');
readln(A, B);
product := 0;
i := 0;
repeat
product := product + A;
i := i + 1;
until i = B;
writeln('The product of ', A, ' and ', B, ' is ', product);
end.

Программа 2:

program ModulusUsingSubtraction;
var
A, B, result: integer;
begin
writeln('Enter two numbers:');
readln(A, B);
repeat
A := A - B;
until A < B;
writeln('The remainder of ', A, ' divided by ', B, ' is ', A);
end.

Программа 3:

program CalculateValue;
var
S, i: integer;
begin
S := 6;
i := 3;
repeat
S := S + 5 div i;
i := i - 1;
until i = 0;
writeln('The value of S is ', S);
end.