1)
var
a:array [1..4] of char; i:integer;
begin
for i:=1 to 4 do
begin
read(a[i]);
end;
for i:=4 downto 1 do
begin
write(a[i]);
end;
<span>end.</span>
Компьютеры обычно не разрешают называть файлы с этими символами: " № # % ^ & | \ / ' ~
Если тебе не сложно отметь пож этот ответ лучшим
1. Иерархия
2. Вершина
3. Взвешенный
4. Дерево
5. Карта
6. Схема
7. Граф
8. Семантическая-сеть
9. Дуга
10. Ребро
Задание 3.7
//Pascal
var i,n,k:integer;
begin
n:=24;
k:=1;
//количество амеб через
//цикл for
for i:=1 to n div 3 do begin
k:=k*2;
writeln('Время :',i*3,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл while
i:=0;
k:=1;
while i<n do begin
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
end;
writeln;
//количество амеб через
//цикл Repeat
i:=0;
k:=1;
repeat
i:=i+3;
k:=k*2;
writeln('Время :',i,' Амеб :',k);
until i=n
end.
Задание 3.8
var
k,b,t:integer;
begin
for b:=1 to 10 do
for k:=1 to 20 do
for t:=1 to 200 do
if (b*10+k*5+t*0.5=100)and(b+k+t=100)then writeln('Быков: ',b,' Коров:',k,' Телят:',t);
end.
1.- 3 прямоугольный триугольник , 2- 8 частей, т.к делишь круг на 4