Question

Составьте программу по которой компьютер десять раз запросит ввод целых и в результате сообщит сколько среди введённых чисел чётных и сколько нечётных. Паскаль, соответственно.

Answer 1

Var a,b,c,d:integer;
begin
for a:=1 to 10 do begin
  write('введите число=> ');
  readln(d);
  if (d mod 2=0) then c:=c+1 else d:=d+1;
  end;
writeln('чётных=> ',c,' нечётных=> ',d);
end.

Answer 2

Program znanija;
var s,nc,c,i:integer;
begin

for i:=1 to 10 do 
begin   
read(s);   
if odd(s) then inc(nc);   
if not odd(s) then inc(c); 
end;  

writeln('Чётных: ',c,' Не чётных: ', nc);

end.

Answer 3

Программа на Pascal для подсчета четных и нечетных чисел

Для создания программы на Pascal, которая будет запрашивать ввод целых чисел и затем сообщать, сколько среди них четных и сколько нечетных, можно использовать следующий код:

program CountEvenOddNumbers;

var
  number, evenCount, oddCount, i: integer;

begin
  evenCount := 0;
  oddCount := 0;

for i := 1 to 10 do
  begin
    writeln('Введите целое число:');
    readln(number);
    
    if number mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
  end;

writeln('Количество четных чисел: ', evenCount);
  writeln('Количество нечетных чисел: ', oddCount);
end.

Эта программа начинается с объявления переменных `number`, `evenCount`, `oddCount` и `i`. Затем идет основная часть программы, в которой происходит цикл запроса ввода чисел и подсчета четных и нечетных чисел. После этого программа выводит результаты.

Объяснение программы

- Объявление переменных: В этой части программы объявляются переменные, которые будут использоваться для хранения введенных чисел, количества четных и нечетных чисел, а также для управления циклом.

- Цикл ввода чисел и подсчета: Цикл `for` выполняется 10 раз (от 1 до 10) и на каждой итерации запрашивает у пользователя ввод целого числа. Затем проверяется, является ли число четным или нечетным, и соответствующий счетчик увеличивается.

- Вывод результатов: После завершения цикла программа выводит количество четных и нечетных чисел.

Этот код позволит вам создать программу на Pascal, которая выполняет требуемую задачу.