Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.
Держи '................
...............
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
n = input() # n тут берется как строка(слово)
composition= 1
summa = 0
mult=0
h=0
for i in n: #читает каждый элемент строки по 1 символу
summa += int(i) #Складывает каждый элемент где int() - превращает символ в цифру
if int(i) != 0 and int(i)%2==0:
composition *= int(i)
if int(i)%3==0 and int(i)!=0:
mult+=1
h+=1 # - для кол-ва цифр в числе
print("\nсумма: ", summa)
print("Кратные числа трем: ", mult)
print("произведение четных : ", composition)
print("Среднее арифметическое цифр: ",str(round((summa/h),1))) #round помжно убрать, округлил до 1 знака после запятой