В чертеж конечно.............
Program task_1;
var
A, B, C : integer;
begin
read(A);
B := A;
C := 0;
While B <> 0 do
begin
C := C*10 + B mod 10;
B := B div 10
end;
If A=C then
begin
writeln('Число симметрично')
end
else
begin
writeln('Число НЕ симметрично')
end;
end.
Var
i, x, sum, n: integer;
begin
read(n);
for i:=1 to n do begin read(x); if x mod 2=0 then sum:=sum+x end;
writeln(sum);
end.
Аудиальная по книжке посмотрел)
некоторыеизнихсвязанысприведенныминиже изображениями : барабан, костер, марка, почта, радио, телефон, телевизор, спутник, паутина с пауком.