Запиши программу на языке Паскаль.

var
i,n:word;
begin
write('n=');
readln(n);
for i:=1 to n do begin write(i,' ');
end;
readln;
end.

На экране

=3

1)0
2)9
3)3
4) 123

1.                                                                    

program raf105;

const

 n = 10;

var

 a:array[1..n] of integer;

 i,min:integer;

begin

min:= 10000;

writeln('Вводите числа по очереди');

for i:=1 to n do

begin

 readln(a[i]);

 if (i>1) and (i<n) and(a[i-1]>a[i]) and (a[i+1]>a[i]) and (a[i]<min)

   then min:= a[i];

end;

if min= 10000

 then min:= 0;

writeln('Самая глубокая яма: ',min);

end.

2.                                                                    

program raf105;

const

 n = 10;

var

 a:array[1..n] of integer;

 i,o:integer;

begin

writeln('Вводите числа по очереди');

for i:=1 to n do

 readln(a[i]);

for i:=1 to n-1 do

begin

 if (a[i]*a[i+1]>0) and (((a[i]+a[i+1]) mod 7)=0)

   then o+=1;

end;

writeln('Вывод: ',o);

end.

3.                                                                    

program raf105;

var

 s1,s2,s3:string;

 i,j,o:integer;

begin

writeln('Введите первую строку:');

readln(s1);

writeln('Введите вторую строку:');

readln(s2);

s3:=s2;

o:= pos(s1,s2);

if o>0

 then

 begin

   delete(s3,o,length(s1));

   s3+= s1;

 end

 else s3:='В строке "' + s2 + '" не найдено строки "' + s1 + '"';

writeln(s3);

end.

Язык PascalABC

 

1.                                                        

program raf105;

var a,sum:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 sum+= a;

until a=0;

writeln('Сумма: ',sum);

end.

2.                                                        

program raf105;

var

s:string;

i,k,j:integer;

poli:boolean;

begin

poli:= true;

write('Введите слово: ');

readln(s);

s:= lowercase(s);

k:= length(s) div 2;

j:= k*2+1;

if (length(s) mod 2)<>0

 then j+= 1;

for i:=1 to k do

begin

 j-=1;

 if poli

   then poli:= s[i] = s[j];

end;

if poli

 then writeln('Слово - палиндром')

 else writeln('Слово - не палиндром');

end.

 

3.                                                        

program raf105;

var a:array[1..10] of integer;

x,i:integer;

begin

writeln('Вводите 10 чисел по очереди');

for i:=1 to 10 do

 readln(a[i]);

write('Введите искомое число: ');

readln(x);

write('Индексы совпадающих элементов: ');

for i:=1 to 10 do

 if a[i] = x

   then write(i,' ');

end.

4.                                                        

program raf105;

var a:integer;

begin

write('Введите номер дня недели: ');

readln(a);

case a of

 1: writeln('Это Понедельник');

 2: writeln('Это Вторник');

 3: writeln('Это Среда');

 4: writeln('Это Четверг');

 5: writeln('Это Пятница');

 6: writeln('Это Суббота');

 7: writeln('Это Воскресенье');

end;

end.

5.                                                        

program raf105;

var a:array[1..100] of integer;

i,o,x: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 o+= 1;

 readln(a[o]);

until a[o]=0;

o-= 1;

writeln('Введённые числа в обратном порядке:');

for i:=o downto 1 do

 writeln(a[i]);

end.