<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)
Program cikl;
uses crt;
var x,y:integer;
begin
write('веди нужное число');
read(x);
for y:=-25 to x do
write(' ',y);
inc(y);
end.
это сгадится
124, 126, 142, 146, 162, 164, 214, 216, 241, 246, 261, 264, 412, 416, 421, 426, 462, 464, 612, 614, 621, 624, 641, 642. 24 числа. Вроде так. 19 чётных, 5 нечётных.
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -99, 99);
a.Println;
var i := a.IndexMin;
Println('Минимальный элемент', a[i], 'имеет номер', i + 1)
end.
1)
var a,b,c,d:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
ну или
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a + b + c;
writeln('сумма чисел равна',d);
end.
2)
var a,b,c,d:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третее число');
readln(c);
d := a * b * c;
writeln('произведение чисел равна',d);
end.
3)
var a,b,c:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
c := a : b;
writeln('деление двух чисел равна',c);
end.
В третем могу ошибится