В найти сумму цифр произвольного целого числа n. 4. подсчитать сумму всех нечётных чисел от 31 до 55. 5. вычислить наибольший общий делитель двух целых чисел (используя алгоритм евклида 6. найти наименьшее общее кратное двух целых чисел. 7. найти частное и остаток от деления числа а на числа b (не используя функции mod и div).

Program lol (input, output);
var a, n, b, i, p,s, m:integer;
c:real;
begin
read (n);
a:=n;
b:=0;
c:=0;
p:=1;
while a <> 0 do
begin
a:=a div 10;
b:=b+1;
end;
while b <> 0 do
begin
p:=1;
for m:=1 to b do
p:=p*10;
s:=(n mod p) div (p div 10);
c:=c+s;
end;
b:=b-1;
end;
writeln (c);
end.

program lol (input, output);
var I, a:integer;
begin
a:=0;
for I:=31 to 55 do
begin
if (i mod 2) <> 0 then
a:=a+I;
end;
writeln (a);
end.


var a, b, c, s, I:integer;
begin
read (a, b);
if a<b then
begin
c:=a;
a:=b;
b:=c;
end;
c:=a;
while c > 0 do
begin
while c >= b do
begin
c:=a-b;
if c > 0 then
s:=c;
a:=c;
end;
a:=b;
b:=c;
end;
writeln (s);
end.

program lol (input, output);
var m, n, prod: word;
begin
readln(m, n);
prod := m * n;
while m <> n do
begin
if m > n then
begin
m := m - n
end
else
begin
n := n - m
end
end;
writeln(prod div m)
end.

program lol (input, output);
var a, b, c, e:Integer;
d:real;
begin
read (a, b);
d:=a/b;
c:=trunc(d);
e:=a-(b*c);
writeln ('Частное: ',c);
writeln ('Остаток: ',e);
end.

Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.

ответ:

n = int(

lstr = (" ")

ns = []

i = 0

tot = 0

while i < n:

    ns.append(int(

    tot += int(lstr[i])

    i += 1

if tot % 5 == 0 and len(ns) > 4:

    sm = int(tot / 5)

    ns = sorted(ns, reverse=true)

    ps = "yes"

    su = 0

    sk = 0

    b = false

    for n in ns:

        if n ! = 0 and b:

            su == 0

            sk += 1

            b = false

            break

        if sk == 5:

            ps = "no"

            break

        su += n

        if abs(su) > abs(sm):

            ps = "no"

            break

        if su == sm:

            b = true

    print(ps)

else:

    print("no")

объяснение: