Смотрите вложение
смотрите вложение
смотрите вложение
смотрите вложение
Var
a,b,x,y,z:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
z:=b;
if b<0 then z:=-b;
for y:=1 to z do begin
x:=x+a;
end;
if b<0 then x:=-x;
writeln('Произведение чисел = ',x);
end.
Проверка по входным данным на фото
Подробное решение во вложении
1) = A1*B1
2) перечень клиентов крупной фармацевтической фирмы
Пусть искомая команда имеет вид: Сместиться на (x, y)
И пусть начальные координаты Чертёжника (0,0).
После выполнения команды Сместиться на (–4, 8)он будет в точке (-4,8).
Далее, после выполненя цикла из 4-х команд:
Координата Х = -4 + 4*[х+(-2)+4]
Координата Y = 8 + 4*[y+(-5)+6]
Чтобы Чертёжник вернулся в исходную точку, его координаты X и Y должны быть равны начальным: X = 0, Y = 0.
То есть нам нужно решить два уравнения:
-4 + 4*[х+(-2)+4] = 0
-4 + 4х - 8 + 16 = 0
4х + 4 = 0
4х = -4
x = -1
8 + 4*[y+(-5)+6] = 0
8 + 4y - 20 + 24 = 0
4y + 12 = 0
4y = -12
y = -3
Значит, Команда1 должна иметь вид: Сместиться на (-1, -3)