var x, L, M: integer;
begin
readln(x);
L := 0;
M := 0;
while x > 0 do
begin
L := L + 1;
if x mod 2 = 0 then
M := M + (x mod 10) div 2;
x := x div 10;
end;
writeln(L);
writeln(M);
end.
2) Правильный треугольник.
Если бы задание было
Повтори 6 [Направо 60 Вперед 20]
тогда был бы ответ (1).
В данном случае черепашка:
первый повтор -
повернёт на 60°
пройдёт 20
повернёт на 60°
второй повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20
повернёт на 60°
третий повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20 <-- Вот точка, из которой черепашка отправилась в путь
повернёт на 60°
четвёртый повтор -
повернёт на 60° <-- Это и последний поворот предыдущего повтора вместе дают 120°
пройдёт 20 <-- Вот точка, в которой была черепашка после того, как прошла 20 шагов в первый раз!
повернёт на 60°
Program primer;
Uses crt;
var i,n: integer;
a:array[1..100] of integer;
begin clrscr;
randomize;
write('Pazmer massiva = ');
readln(n);
for i:=1 to n do
a[i]:= random(100)-50;
for i:=1 to n do
write(a[i]:5);
writeln;
writeln;
for i:=n downto 1 do
write(a[i]:5);
readln;
end.
Жесткие диски, флеш карты, касеты.