Var a,a1,a2,a3,a4,a5,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 10000;
a2:=a div 1000 mod 10;
a3:=a div 100 mod 10;
a4:=a mod 100 div 10;
a5:=a mod 10;
b:=a5*10000+a4*1000+a3*100+a2*10+a1;
writeln('b = ',b);
end.
Пример:
a = 13524
b = 42531
1) машина, поезд, автобус, трамвай, самолёт, троллейбус, мотоцикл, велосипед, мопед, скутер
2) дом, машина, автобус, расписание
3) кошка, собака, лемур, енот, скунс, человек (заболевание), рыбы, птицы, пресмыкающиеся, самолёт.
4) самолёт, катер, аэроплан, птицы, насекомые, подводная лодка,морской скат(манта).
Достаточно?
Const
K = 13;
Var
A:array[1..K] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
S:=0;
i:=0;
Repeat
i:=i+1;
if A[i]>0 then
Repeat
S:=S+A[i];
i:=i+1
Until i>K;
Until i>=K;
WriteLn;
WriteLn('S = ',S);
End.
Я недавно была на на такой же ярмарке, и там рассказывалось про всякие учебные заведения в твоем городе, р-не, области, и представители этих учереждений выходили и рассказывали о своих колледжах и институтов и какие именно там есть специализации.
Ну надеюсь понятно объяснила.
Локальный провод!
подсоединяшь к главному компу, а потом к другим.