Пусть искомая команда имеет вид: Сместиться на (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)
//Pascal
var
A: array [1 .. 5] of integer;
k, buf, i, j: integer;
ArithMean: real;
begin
for i := 1 to 5 do
begin
write('A[', i, '] = '); readln(A[i]);
ArithMean := ArithMean + A[i];
end;
for i := 1 to 5 - 1 do
begin
k := i;
for j := i + 1 to 5 do
if A[j] < A[k] then k := j;
buf := A[i];
A[i] := A[k];
A[k] := buf;
end;
for i := 1 to 5 do write(A[i]:4);
writeln;
writeln('Среднее арифметическое = ', (ArithMean / 5):0:2);
end.
Это на С++:
#include <stdio.h>
int main ()
{
int a = 0, b = 0, c = 0;
scanf ("%d %d %d", &a, &b, &c);
printf ("%d+%d+%d=%d\n", a, b, c, a+b+c);
printf ("%d*%d*%d=%d\n", a, b, c, a*b*c);
printf ("(%d+%d+%d)/3=%f", a, b, c, (a+b+c)/3.0);
}
Ну,например,Есенин.
program Chetverostishie;
begin
writeln('И ничто души не потревожит,');
writeln('И ничто ее не бросит в дрожь, —');
writeln('Кто любил, уж тот любить не может,');
writeln('Кто сгорел, того не подожжешь.');
writeln('С.А.Есенин');
end.<span>
</span>
Var a,b,c,d,n:integer;begin
writeln('введи номер цифры');
readln(d);
b:=0;
a:=1;
n:=0;
if d<0 then while d<0 do begin
writeln('введено неверное число ,попробуйте ещё раз');
readln(d);
end;
while c<2147483646 do begin
c:=a+b;
b:=a;
a:=c;
n:=n+1;
if (n=d) then c:=2147483647;if (n=d) then d:=b;
end;
writeln('это число ',b);
<span>end.</span>