1)
var
a, n, s: integer;
begin
write('n = ');
Readln(n);
a := 1;
while a <= n do
begin
s := s + a;
a := a + 1;
end;
writeln(s);
end.
2)
var
a, n: integer;
begin
write('n = ');
Readln(n);
a := 1;
while a <= n do
begin
writeln(2 * a);
a := a + 1;
end;
end.
3)
var
a, b: integer;
begin
write('Введите числа a и b: ');
Readln(a, b);
while a <= b do
begin
writeln(a, '^2 = ', sqr(a));
a := a + 1;
end;
end.
Номер 2:
n = int(input())#количество элементов
a = []
for i in range(n):
a.append(int(input()))
k = 0
for i in range(n):
if a[i] % 5 == 0 and a[i] % 10 == 0:
k += 1
for j in range(n):
if a[j] % 5 == 0 and a[j] % 10 == 0:
a[j] = k
print('\n'.join(map(str, a)))
Номер 1:
n = int(input())#количество элементов
a = []
for i in range(n):
a.append(int(input()))
k = 0
su = 0
for i in range(n):
if a[i] > 0 and a[i] % 3 == 0 and a[i] % 10 == 6:
su += a[i]
print(su)
Объяснение: