1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program pr;
var
n, i, k, m: integer;
begin
k := 0;
writeln('Введите количество чисел последовательности');
readln(n);
if n <= 1000 then
for i := 1 to n do
writeln('Введите ', i, ' число:');
readln(m);
if abs(m) <= 30000 then
if (m mod 3 = 0) and (m mod 10 = 2) then
inc(k);
end
else
writeln('Число по модулю не должно превышать 30000');
exit;
end;
writeln('Количество элементов последовательности кратных 3 и оканчивающихся на 2: ', k);
writeln('Количество не должно превышать 1000');
end.
Объяснение:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program pr;
var
n, i, k, m: integer;
begin
k := 0;
writeln('Введите количество чисел последовательности');
readln(n);
if n <= 1000 then
begin
for i := 1 to n do
begin
writeln('Введите ', i, ' число:');
readln(m);
if abs(m) <= 30000 then
begin
if (m mod 3 = 0) and (m mod 10 = 2) then
inc(k);
end
else
begin
writeln('Число по модулю не должно превышать 30000');
exit;
end;
end;
writeln('Количество элементов последовательности кратных 3 и оканчивающихся на 2: ', k);
end
else
writeln('Количество не должно превышать 1000');
end.
Объяснение: