avanesyan20011
06.04.2022 12:30

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

Нажмите на рекламу ниже и сразу увидите ответ
Ответ:
artem877
02.10.2020 07:30
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота