Var a,p:integer;
begin
p:=1;
repeat
readln(a);
if (a>=-10) and (a<=10) then
p:=p*a;
until (a>10) or (a<-10);
write(p)<span>
end.</span>
11
ПОТОМУ ЧТО 1100 УБИРАЕМ 00 ПОЛУЧАЕТСЯ 11
Пусть искомая команда имеет вид: Сместиться на (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)
Var a,b,c:integer;
begin
read(a,b,c);
if b>a then a:=b;
if c>a then writeln(c) else writeln(a);
end.
program raf105;
var x,y:integer;
begin
writeln('Введите 2 числа');
readln(x,y);
if y<>0
then writeln(x,'/',y,'=',x/y)
else writeln('На ноль делить нельзя');
end.
<em>Написано на языке PascalABC.NET</em>