Решите пожалуйста задачи по Delphi

Tusy · 21.03.2013, 10:11

Кот Матроскин и Шарик загадывали четные и нечетные числа в произвольном порядке, пока не кончилось место на печке, где они записывали эти числа. Определить, каких чисел было загадано больше: четных или нечетных, если последним было записано число 0 (0 при подсчете не учитывать!). Сколько четных чисел предшествовало первому нечетному? Вводятся целые числа(типа Integer), последним вводится 0. Всего вводится не более 1000 чисел.
Вывести: в первой строке количество чисел, которых было записано больше.
во второй строке вывести количество четных чисел, предшествующих первому нечетному. Если нечетных чисел не встретилось, вывести 0.

ПРИМЕР ВВОДА:
2 1 3 4 5 6 7 8 9 0

ПРИМЕР ВЫВОДА:
5
1

ПРИМЕР ВВОДА:
2 4 6 8 10 0

ПРИМЕР ВЫВОДА:
5
0

Замечание:

Не следует цепляться к чужим темам. Создал новую.

Модератор

interacia · 21.03.2013, 12:08

консольный режим.

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
a,i:integer;
het,nehet:integer;
bol:boolean;
begin
i:=0;
het:=0;
nehet:=0;
Writeln('Введите набор ненулевых целых чисел; признак его завершения - число 0.');
Read(a);
bol:=true;
While (a<>0) do
begin
if (a mod 2)=0 then
  begin
  inc(het);
  if bol then inc(i);
  end;

if (a mod 2)=1 then
  begin
  inc(nehet);
  bol:=false;
  end;
Read(a);
end;
Writeln('Otvet');
if nehet>het then Writeln(nehet);
if het>nehet then Writeln(het);
if nehet=het then Writeln(nehet,'=',het);
if nehet=0 then Writeln(0)
else Writeln(i);
readln;
readln;
end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070