if (i % 7 == 0) and (i % 11 != 0) and (i % 23 != 0) and (-i % 10 != 8):
c = с + 1
print(i)
print(c)
вот как это выглядит на питоне, в целом на паскале все выглядит точно также кроме %, в паскале это (mod), кроме ==, в паскале это (=), кроме !=, в паскале это (<>), ну и кроме принта
самая главная строчка тут (-i % 10 != 8) тут должно быть именно -i, так как если вы сами поэкспериментируете с числами на паскале (с положительными и отрицательными), то у вас будет выводиться совершенно другое число, поэтому когда видите отрицательный отрезок не забывайте об этом моменте, наверное я непонятно объяснил, но надеюсь вы поняли
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
Chislo, Count, Summa, n: integer;
begin
Summa := 0;
Count := 0;
readln(Chislo);
while Chislo > 0 do
begin
n := Chislo mod 10;
if odd(n) then
begin
Summa := Summa + n;
inc(Count);
end;
Chislo := Chislo div 10;
end;
writeln('Сумма нечетных цифр числа: ', Summa);
writeln('Кол-во нечетных цифр числа: ', Count);
writeln('Среднее арифметическое нечетных цифр: ', Summa / Count);
end.
Объяснение:
723-3115
Объяснение:
c = 0
for i in range (-9563, -3103):
if (i % 7 == 0) and (i % 11 != 0) and (i % 23 != 0) and (-i % 10 != 8):
c = с + 1
print(i)
print(c)
вот как это выглядит на питоне, в целом на паскале все выглядит точно также кроме %, в паскале это (mod), кроме ==, в паскале это (=), кроме !=, в паскале это (<>), ну и кроме принта
самая главная строчка тут (-i % 10 != 8) тут должно быть именно -i, так как если вы сами поэкспериментируете с числами на паскале (с положительными и отрицательными), то у вас будет выводиться совершенно другое число, поэтому когда видите отрицательный отрезок не забывайте об этом моменте, наверное я непонятно объяснил, но надеюсь вы поняли