Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
CoolEnemy
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 36
1

Вводятся два целых числа. Определить, сколько парных чисел находится между ними и найти их сумму

12.01.2015, 18:18. Просмотров 512. Ответов 5
Метки нет (Все метки)

Ребят, помогите пожалуйста, очень срочно нужно решить в Delphi:
Вводятся два целых числа. Определить, сколько парных чисел находится между ними и найти их сумму.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2015, 18:18
Ответы с готовыми решениями:

Найти сначала ближайшие к Х два числа и найти расстояние между ними
Здравствуйте. Задача такая. Пользователь вводит массив и число Х типа Real. Надо найти сначала...

Найти сумму всех целых чисел от A до B (значения A и B вводятся с клавиатуры ) B>=A
Найти сумму всех целых чисел от A до B (значения A и B вводятся с клавиатуры ) B>=A

Даны два целых числа А и В (A<B). Найти произведение всех целых чисел от А до В включительно
помогите

В простую переменную последовательно вводятся числа. Окончание ввода – 0. Определить сколько чисел больше своих соседей слева и справа.
В простую переменную последовательно вводятся числа. Окончание ввода – 0. Определить сколько чисел...

Из целых чисел, которые вводятся по одному получить сумму по заданным условиям
Пусть дано 50 целых чисел,которые вводятся по одному.Получите сумму тех из них,которые:а)кратны...

5
NIKOLAYY
820 / 718 / 339
Регистрация: 22.09.2012
Сообщений: 4,995
12.01.2015, 21:18 2
Допустим есть числа:
10
100

Что искать? 11, 22, 33? То есть те цифры в числах которые одинаковые?
А затем сложить 11 + 22 + 33 и тд?
0
CoolEnemy
0 / 0 / 0
Регистрация: 06.10.2013
Сообщений: 36
12.01.2015, 22:10  [ТС] 3
NIKOLAYY, нет, например есть числа 1 и 10, парные между ними 2 4 6 8
0
Sergio Leone
2467 / 1112 / 579
Регистрация: 07.06.2014
Сообщений: 3,259
12.01.2015, 22:38 4
Цитата Сообщение от CoolEnemy Посмотреть сообщение
парные между ними
думаю, что тут мы имеем дело в неточном переводе с украинского: "парные" - это по русски "чётные"

p.s. решать задачу можно либо банальным перебором:
Delphi
1
2
3
Count := 0;
for i:=A to B do 
  if ((i mod 2) = 0) then Inc(Count);
либо (намного лучше) через формулу (B-A)/2 (только нужно позаботится, чтобы любое из чисел А или B было нечётным. Тогда задача легко решается таким кодом:
Delphi
1
2
if A mod 2 = 0 then Inc(A);
Count := (B-A) div 2;
0
NIKOLAYY
820 / 718 / 339
Регистрация: 22.09.2012
Сообщений: 4,995
12.01.2015, 22:59 5
Аа вот оно че ему надо, парние числа...
0
Миниатюры
Вводятся два целых числа. Определить, сколько парных чисел находится между ними и найти их сумму  
David_Ok
6 / 6 / 1
Регистрация: 12.01.2015
Сообщений: 87
12.01.2015, 23:06 6
Приветствую сам в программировании не долго поэтому возможно не самый оптимальный вариант высылаю, но зато самый простой, надеюсь все понятно и будет работать, а то сам не проверял
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
[SUB]var a, b, i: integer;
c: array [1..100] of integer; // если может быть найдено больше чем 100 чисел то измени на большее число чем 100
begin 
{Не помню точно как в Делфи принять числа от пользователя, но предположим что меньшее число это наша переменная "а", большее это "b"}
a:= a+1;
i:=0;
While (a < b ) do 
  begin 
if (a mod 2 = 0) then 
  begin 
c[i]:=a; //B массиве "c" будут храниться четные числа :) 
i:= i+1;
a:= a+2; 
 end
 else
a:= a+1;
end;
end. [/SUB]
0
12.01.2015, 23:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2015, 23:06

Вводятся четыре числа. И требуется найти сумму двух больших чисел и произведение двух меньших
Помогите сделать программу. Вроде, не такая сложная, но не могу понять, как делать Вводятся четыре...

В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих соседей сле
В простую переменную последовательно вводятся числа. Окончание ввода 0. Сколько чисел больше своих...

Даны два вещественных числа. Сколько между ними целых чисел?
Даны два вещественных числа. Сколько между ними целых чисел.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru