var s,i:integer;
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
14-5 = 9
D-A = 2
(9+1)*(2+1) = 30 (+1 так ка включительно)
Ответ 30
Алг
нач
цел a,b
ввод a,b
вывод "площадь: ",a*b,"; "
вывод "периметр: ",(a+b)*2
кон
Var
s: Int64;
i, n: byte;
begin
readln(n);
for i := 1 to n do
s += i;
writeln(s);
end.
<h2> # №1
</h2>
a = int(input('a = '))
b = int(input('b = '))
c = int(input('c = '))
for i in range(a,b+1):
if i % c == 0:
print(i)
<h2> # №2
</h2>
sum = 0
for i in range(1,50):
if (i % 2 != 0) and (i > 0):
sum += i
print('Сумма: ',sum)
<h2> # №3
</h2>
sum = 0
a = int(input('a = '))
b = int(input('b = '))
for i in range(a, b+1):
if (i % 4 == 0) and (i > 0):
sum += i
print('Сумма: ',sum)
<h2> # №4
</h2>
for i in range(1000, 9999+1):
if (i % 133 == 125):
print(i)
<h2> # №5
</h2>
a = int(input('Введите число: '))
sum = 0
for i in range(1,a+1):
if a % i == 0:
sum += i
print('Сумма его делителей: ',sum)
<h2> # №6
</h2>
a = int(input('Введите число: '))
counter = 0
for i in range(1,a+1):
if (a % i == 0) and (i % 2 == 0):
counter += 1;
print('Количество его нечётных делителей: ',counter)
<h2> # №7
</h2>
print('Вводите 8 чисел по очереди')
sum = 0
for i in range(1,8+1):
a = float(input())
if a > 10.75:
sum += a
print('Сумма чисел больше 10.75: ',sum)
<h2> # №8</h2>
a = int(input('Введите количество целых чисел: '))
n = int(input('Введите число, на которое нужно делить: '))
print('Вводите целые числа')
sum = 0
for i in range(1,a+1):
x = int(input())
if x % n == 0:
sum += x
print('Сумма чисел кратных',n,':',sum)
