Question

Ребята, помогите с задачей! Надо ввести ее в pascal Дан ряд чисел. Количество задается пользователем. Найти кол-во четных чисел оканчивающих на 0 или 2 9 класс

Answer 1

var n,i,a,k:integer;

begin

write('Введите количество чисел: ');

readln(n);

writeln;

for i:= 1 to n do

begin

write('Введите число: ');

readln(a);

if ((a mod 2 = 0) and (a mod 10 = 0)) or ((a mod 2 = 0) and (a mod 10 = 2)) then k:=k+1

end;

writeln;

writeln('Кол-во четных чисел оканчивающих на 0 или 2: ',k);

end.

Answer 2

Конечно, я помогу вам написать программу на Pascal для решения этой задачи. Ниже приведен код, который позволит пользователю ввести ряд чисел, а затем найдет количество четных чисел, оканчивающихся на 0 или 2:

pascalCopy code
program CountEvenNumbers;

var
  num, count, n, i: integer;

begin
  writeln('Введите количество чисел в ряду:');
  readln(n);

  count := 0;

  writeln('Введите ряд чисел:');
  for i := 1 to n do
  begin
    readln(num);

    // Проверяем, является ли число четным и оканчивается на 0 или 2
    if (num mod 2 = 0) and ((num mod 10 = 0) or (num mod 10 = 2)) then
      count := count + 1;
  end;

  writeln('Количество четных чисел, оканчивающихся на 0 или 2: ', count);
end.

Скопируйте этот код в среду разработки Pascal (например, Lazarus или Delphi) и выполните программу. Она запросит у пользователя количество чисел в ряду и после этого попросит ввести сами числа. Затем программа посчитает и выведет количество четных чисел, оканчивающихся на 0 или 2.