Var
i,n:integer;
begin
read(n);
for i := 1 to n do
if (i mod 2) * (i mod 3) * (i mod 5) = 0 then
write(i,' ')
<span>end.</span>
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
int mas[20] = {};
int buff = 0;
for (int i = 1; i <= 20; i++){
cout << "Введите " << i << " число" << endl;
cin >> mas[i];
if (mas[i] % 2 == 0)
{
buff++;
}
}
cout << "Количество чётных: " << buff << '\n';
cout << "Количество нечётных: " << 20-buff << '\n';
}
<span>n = int(input<span>())
</span>digs <span>= []
</span>while n > 0<span>:
</span> digs.append(n % 10<span>)
</span> n //= <span>10
</span>if digs[:len(digs) // 2] == digs[len(digs) // 2 + len(digs) % 2: ][::-1<span>]:
</span> print('YES'<span>)
</span>else<span>:
</span> print('NO'<span>)</span></span>
1 г 2б 3в вот на постарайся выполнять самостоятельно
Uses crt;
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
k:=3;
a[1]:=2;
for i:=2 to n do
begin
a[i]:=a[i-1]+k;
k:=k+2;
end;
for i:=1 to n do
writeln(a[i]);
end.