Program n1;
const n=15;
var a: array[1..n] of integer;
i,k5,kns,sum: integer;
sb: real;
begin
randomize;
k5:=0;
kns:=0;
sum:=0;
write('оценки: ');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i],' ');
if a[i]=5 then k5:=k5+1;
sum:=sum+a[i];
end;
writeln;
sb:=sum/n;
writeln('кол-во 5: ',k5);
writeln('ср арифм: ',sb);
for i:=1 to n do if a[i]>sb then kns:=kns+1;
writeln('кол-во уч >ср арифм: ',kns);
end.
<span>uses crt;
var a,b,c: real;
k: byte;
begin
k:=0;
write('a=');
readln(a);
if round(a)=a then k:=k+1;
write('b=');
readln(b);
if round(b)=b then k:=k+1;
write('c=');
readln(c);
if round(c)=c then k:=k+1;
writeln(k);
readln;
end<span>.</span></span>
A = int(input("b = "))
if a//100 == a\%10: print("Число симметрично")
else: print ("Число не симметрично")
Пример:
<span>b = 525
Число симметрично</span>
B это числа, которые вводятся с клавиатуры до тех пор, пока не будет введено отрицат. число
а - это счетчик этих неотрицат. чисел (т.е. нулей и положит. чисел), формат команды inc (a) показывает, что происходит увеличение переменной а ровно на единицу.