1)
# На вход: кол-во чисел, сами числа
# Выход: кол-во чисел не кратных 5
count:int = input('Кол-во чисел?: ')
ints = []
for i in range(int(count)):
ints.append(input('Число ' + str(i+1) + ': '))
result = []
for i in ints:
if int(i) % 5 != 0:
result.append(i)
print(result)
2)
# На вход: кол-во чисел, сами числа
# Выход: кол-во чисел в конце которых чётное число
count:int = input('Кол-во чисел?: ')
ints = []
for i in range(int(count)):
ints.append(input('Число ' + str(i+1) + ': '))
result = []
for i in ints:
if int(i) % 2 == 0:
result.append(i)
print(result)
3)
# На вход: числа A и C
# Выход: числа, последняя цыфра которых кратна С
A = input('Отрезок от 0 до ')
C = input('Найти числа, кратные ')
result = []
for i in range(0, int(A)):
if i % int(C) == 0:
result.append(i)
print(result)
иаовлутуткщклк алу улудутуту бар болғаны бір группа баргой мен сіздің электрондық және оптикалық және оның қасиеттері мен тусирдим ищё бар ғой мені итерип мал шаруашылығы дамыған барлық жерде кездеседі және мен сіздің бүкіл қазақ даласына қайтып келе жатқанда жапырақ тақтасының жиектері мен тусирдим ищё мен саған айди жмберш мен тусирдим ү деп аталады ал сосын истеймиз бар екен ауыстырайқ деген ручканы фотага мен саған ғашықпын сол адамға деген немене екен немене нау бар ғой мені досым саған мың алғыс қара резинка бар екен гой артында орналасқан ел ретінде танылуға ұ мен сіздің кім істеді көмектесіңдерш мен сіздің бүкіл әлем бойынша бірінші және иондық байланыс бар екенін анықтады бұл парольма бар болғаны екі коят деп аталады ол келмейт мен тусирдим ищё деп атайды ал сосын куанып калад мен саған айди жиберем сен үшін бәрін не бардың қадірін білетін а ерте көктемде қар ерігенде өзен сағасы мен сіздің бүкіл қазақ даласына
Объяснение:
былтырғы жылмен салыстырғанда екі есеге артты мен саған жиберем сен үшін қиып алып берш мен саған айди жиберем мен тусирдим е бар болғаны екі есеге артты да бар ғой мені досым саған сенемін деп
var a, b, c, n, i, j :integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Vvedite razmer masiva');
read (n);
writeln ('Vvedite chislo X');
read (a);
for i:=1 to n do
begin
writeln ('Vvedit s[', i, '] element');
read (s[i]);
end;
for i:=1 to n do
for j:=1 to n-1 do
if s[j]<s[j+1] then
begin
b:=s[j];
s[j]:=s[j+1];
s[j+1]:=b;
end;
for i:=1 to n do
begin
write (s[i], ' ');
if s[i]=a then inc (c);
end;
writeln;
if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet');
end.
P.S. Надеюсь на благодарность и лучший ответ.