1:
--
program l;
var n:integer;
begin
for n:=1 to 10 do
writeln('Рота');
end.
--
program l;
var
n, i: integer;
begin
writeln('Введите n:');
readln(n);
for n := 0 to n do
begin
i := n * n;
end;
writeln(n,'в квадрате: ',i);
end.
--
3:
program l;
var i,n:integer;
begin
for n:=1 to 6 do
begin
i:=456*n;
Writeln(n,'фунт(-а) это ',i, 'грамм.');
end;
end.
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
Program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.
Совет Федерации РФ является верхней палатой парламента РФ, структура которого утверждена конституцией этого преступного режима, принятой в результате государственного переворота 1993 года.
Путь робота:
<span>1132432
Значит
Вверх, вверх, вправо, вниз, влево, вправо, вниз.
Значит, чтобы вернуться он должен выполнить программу, ровно обратную данной. Для этого, во-первых надо прочитать команду задом наперёд, во-вторых, каждое "влево" превратить в "вправо", "вверх" в "вниз" и тд.</span><span>
Программа </span><span>1132432 принимает следующий вид:
(1) Переворачиваем:
2342311
(2) Меняем:
14314122
Ответ: </span>
<span>14314122</span>