var
x, a, k, t, i, d: integer;
begin
readln(x);
a := x; k := 0;
while a > 0 do
begin
k += 1;
a := a div 10;
end;
if k mod 2 = 0 then
write('В числе четное количество цифр')
else
begin
t := 1;
for i:=1 to k div 2 do
t *= 10;
d := x div t mod 10;
write(d);
end
end.
Если кузнечик двигался вперёд 2, а назад 1, значит он всё время смесчается на 1 клетку, соответственно он прошел 35 клеток.
Остальные 5 команд он двигаля назад, значит он прошел 6*5=30клеток.
Всё это можно заменить на команду (Вперёд 5)
Ответ: 2
Составьте программу ввода и вывода массива;3,4,-9,8,1,-6,2,-5,-1,7,5,9.
В ТАБЛО ДАМ ПИЗ Д...
Var a: array[1..50] of Integer;
x,i: integer;
begin
writeln('количество элементов в массиве:');
readln(x);
for i:=1 to x do
begin
readln(a[i]);
end;
for i:=1 to x do
begin
writeln(a[i]);
end;
end.
Юрист,политолог-самые подходящие под ваши слова.
Var a: boolean;
<span> b: integer;
</span>
begin
a:= true;
if (a) then
b:= 4;
else
b:= -4;
writeln(b);
end.