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

Все ли числа в строке четные

24.04.2014, 15:05. Просмотров 836. Ответов 2
Метки нет (Все метки)

если все цифры четные,то заменить первую на цифру 5

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.04.2014, 15:05
Ответы с готовыми решениями:

Составить программу, записывающую в файл g все четные числа файла f, а затем все нечетные
Дан файл f, компоненты которого являются целыми числами. Составить программу,...

Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного числа
Добрый день. Помогите решить задачу. Дан целочисленный массив размера N....

Вывести четные числа, записанные в строке
Дана строка символов, состоящая из произвольных десятичных цифр, разделенных...

Удалить из массива все четные числа
Дан массив, состоящий из цифр. Удалить из него все четные числа. P.C числа...

Удалить из стека целых чисел все четные числа
Удалить из стека целых чисел все четные числа- Delph

2
Cyborg Drone
Модератор
5273 / 3140 / 2440
Регистрация: 17.08.2012
Сообщений: 10,111
24.04.2014, 16:27 #2
Цитата Сообщение от Аниточка Посмотреть сообщение
Все ли числа в строке четные
Цитата Сообщение от Аниточка Посмотреть сообщение
если все цифры четные
Определитесь, где у вас числа, а где - цифры.
0
long399
152 / 152 / 93
Регистрация: 16.10.2013
Сообщений: 735
Записей в блоге: 3
24.04.2014, 18:09 #3
Лучший ответ Сообщение было отмечено Аниточка как решение

Решение

Цитата Сообщение от Аниточка Посмотреть сообщение
если все цифры четные,то заменить первую на цифру 5
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,k:integer;
begin
s:=edit1.Text;
k:=0;
 
for i := 1 to length(s) do
if strtoint(s[i])mod 2=0 then
inc(k);
 
if k=length(s) then s[1]:='5';
edit1.Clear;
edit1.Text:=s;
end;
Код написал и проверил. Рабочий
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.04.2014, 18:09

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

Дан файл f, компоненты которого являются целыми числами. Записать в файл g все четные числа f, а в файл h – все нечетны
Дан файл f, компоненты которого являются целыми числами. Записать в файл g все...

В одномерном массиве отсортировать все четные числа по возрастанию, а нечетные - по убыванию на своих местах
В одномерном числовом массиве отсортировать все четные числа по возрастанию, а...


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

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

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