Дано натуральное число: определить а) количество цифр в нем б)сумму его цифр в)произведение его цифр г)среднее арифметическое его цифр д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр

А) var n, k: longint; begin write('n='); readln(n); k : = 0; while n > 0 do begin n : = n div 10; k : = k + 1; end; write('k=', k); end.

var a,b,c,d,res: integer;

begin

write('Введите a: ');

readln(a);

write('Введите b: ');

readln(b);

write('Введите c: ');

readln(c);

write('Введите d: ');

readln(d);

res := a;

// Проверяем число b

if (b mod 10 > res mod 10) then res:=b

else if (b mod 10 = res mod 10) then

 begin

 if (res<b) then res:=b;

 end;

// Проверяем число c

if (c mod 10 > res mod 10) then res:=c

else if (c mod 10 = res mod 10) then

 begin

 if (res<c) then res:=c;

 end;

 

// Проверяем число d

if (d mod 10 > res mod 10) then res:=d

else if (d mod 10 = res mod 10) then

 begin

 if (res<d) then res:=d;

 end;

 

writeln('Число с наибольшей последней цифрой: ',res);

end.

var

 ball: array [1..30] of integer;

 s: string;

 n, i, sum,count: integer;

 sred: real;

begin

 count:=0;

 Writeln('Введите колличество учащихся: ');

 readln(n);

 Writeln('Введите оценки: ');

 for i := 1 to n do

   Read(ball[i]);

 for i := 1 to n do

   if ball[i] > 2 then

   begin

     sum += ball[i];

     Inc(count);

   end;

 sred := sum / count;

 Writeln('Учеников сдавших экзамен: ', count);

 Writeln('Учеников не сдавгих экзамен: ', n-count);

 Writeln('Средняя оценка сдавших: ', sred:6:2);

end.