Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 21.03.2013, 10:11   #1 (permalink)
Tusy
Новичок
 
Регистрация: 21.03.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Решите пожалуйста задачи по Delphi

Кот Матроскин и Шарик загадывали четные и нечетные числа в произвольном порядке, пока не кончилось место на печке, где они записывали эти числа. Определить, каких чисел было загадано больше: четных или нечетных, если последним было записано число 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

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

Модератор
Tusy вне форума   Ответить с цитированием

Старый 21.03.2013, 10:11
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Эти ссылки помогут вам в решении проблемы

Паскаль. Решите задачу, пожалуйста
Задачи с использованием численных методов, Delphi
Delphi. Помогите, пожалуйста, решить две задачки
Помогите пожалуйста в решении задач в DELPHI 7
Решите задачки в Паскале, пожалуйста
Задачи в Delphi 7

Старый 21.03.2013, 12:08   #2 (permalink)
interacia
Member
 
Регистрация: 29.01.2013
Сообщений: 91
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 565
По умолчанию

консольный режим.
Код:
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.
interacia вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 16:57.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.