Из данного натурального числа n, удалить все цифры 5 ( n вводиться с клавиатуры например вводим 25455, выводит 24.

var s: string; i: byte; beginread(s); if (length(s)=1)and (s='5') then writeln(' ') else begin

while i< > length(s) dobegini: =i+1; if copy(s,i,1)='5' then begin delete (s,i,1); i: =i-1; end; end; writeln(s); end; end.

Для того, чтобы перевести целое число из десятичной в двоичную систему счисления, необходимо разделить его на два, а затем делить на два каждое полученное частное до тех пор, пока не получится единица. искомое двоичное число записывается как последовательность цифр, равных последнему частному (единице) и всем полученным остаткам, начиная с последнего.надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичнуюполучается вот так: 21   = 10 1012=10 2002   = 11111010 010 в итоге: 10101.10.11111010010

№1 var a: array[1..20] of integer;   i,k: integer;   begin  k: =0;   writeln('введите числа');   for i: =1 to 20 do begin  read(a[i]);   if a[i]> 0 then k: =k+1;   end;   writeln('количество положительных чисел = ',k);   end. №2var a: array[1..20] of integer;   i,sum: integer;   begin  sum: =0;   writeln('введите оценки');   for i: =1 to 20 do begin  read(a[i]);   sum: =sum+a[i];   end;   writeln('среднее арифметическое этих оценок = ',sum/20);   end.