Question

Ввести 6 чисел. Определить каких больше - четных или нечетных. Надо написать программу на языке паскаль очень прошу срочно.

Answer 1

program nazvanie;
var a,b,b1,k,k1:integer;
begin   
 write('Введите трехзначное число: ');   
  readln(a); 
   b:=a; 
   while b<>0 do     begin        b1:=b mod 10; 
    if b1 mod 2=0     then       k:=k+1          else      k1:=k1+1; 
 b1:=b div 10; 
   b:=b1; 
 end; 
   if k>k1        then         
write('Кол-во четных цифр больше, чем нечетных в числе ',a)
else if k<k1          then   write('Кол-во нечетных больше, чем четаных в числе ',a);
end.   
Немного переделать и будет рабочая прога!

Answer 2

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

Вот пример программы на Pascal, которая позволяет ввести 6 чисел и определить, сколько из них четных и сколько нечетных:

pascalCopy code
program CountEvenOdd;

var
  num, evenCount, oddCount, i: Integer;

begin
  evenCount := 0;
  oddCount := 0;

  for i := 1 to 6 do
  begin
    Write('Введите число ', i, ': ');
    Readln(num);

    if num mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
  end;

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

  if evenCount > oddCount then
    Writeln('Четных чисел больше.')
  else if evenCount < oddCount then
    Writeln('Нечетных чисел больше.')
  else
    Writeln('Четных и нечетных чисел поровну.');
end.

Скопируйте этот код в среду разработки Pascal и запустите программу. Она запросит ввод 6 чисел и выдаст результат, указывающий, сколько из них четных и сколько нечетных, а также сообщит, каких чисел больше.