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.