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

Question

Информатика

Васята

31 марта, 08:21

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

+3

Ответы (1)

Знаете ответ на вопрос?

Валентин · 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
writeln ('ответ ', r) ;

end.