IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Переделать условие, help me
Slash
сообщение 20.05.2007 21:37
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  0  +


Дан код программы ! мне нужно изменить условие этого кода !
тут условие сумма цифр числа делиться на 5 а мну нужно число состоит из чётного количества цифр

uses crt;
var
sum,chislo,n,b,min,l,h:integer;
begin
clrscr;
min:=99999;
sum:=0;
l:=0;
repeat
writeln ('Vvedite chislo');
read (chislo);
sum:=sum+chislo;
n:=abs(chislo);
if chislo<>0 then
if chislo<min then min:=chislo;
repeat
b:=n mod 10;
n:=n div 10;
l:=l+b;
until n=0;
if L mod 5=0 then h:=h+1;
until clo=0;
writeln ('Summa vseh chisel=',sum);
writeln ('Min element=',min);
writeln('Kol-vo chisel delashihsa na 5: ',h);
readkey;
end.



help me
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 9)
Perfez
сообщение 20.05.2007 21:52
Сообщение #2


Бывалый
***

Группа: Модераторы
Сообщений: 231
Пол: Женский

Репутация: -  6  +


Лови,Slash: smile.gif
 
var
s:string;
Begin
WriteLn('Vvedite chislo:');
ReadLn(s);
If Odd(length(s)) then WriteLn('Nechetnoye kolichestvo cifr')
else WriteLn('Chetnoye kolichestvo cifr');
ReadLn;
End.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Slash
сообщение 20.05.2007 22:24
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  0  +


это не то ! smile.gif
Для удобства вот полностью условие которое мне нужно сделать
Введена последовательность целых чисел. Признаком конца ввода является введение числа 0. Вычислить сумму элементов этой последовательности, найти минимальный элемент в этой последовательности и количество элементов удовлетворяющих правилу вашего варианта.
правило моего варианта
Число состоит из четного количества цифр.


а задание того кода вот такое
Введена последовательность целых чисел. Признаком конца ввода является введение числа 0. Вычислить сумму элементов этой последовательности, найти минимальный элемент в этой последовательности и количество элементов удовлетворяющих правилу вашего варианта.
правило варианта
Сумма цифр числа делиться на пять
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 20.05.2007 23:06
Сообщение #4


Гость






 
uses crt;

var
i : integer;
s : string;
n, n1, code : integer;

begin
n := 0;
clrscr;
readln(s);
for i := 1 to length(s) do begin
val(s[i], n1, code);
n := n + n1;
end;
if (n mod 5 = 0) then
writeln ('da')
else
writeln ('net');

readkey;
end.

 К началу страницы 
+ Ответить 
Slash
сообщение 21.05.2007 7:55
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  0  +


Программа работает не корректно вводишь 1234 пишет чётное кол во чисел
вводишь 2345 пишет нечётное blink.gif +мне нужно изменить тока 1 условие а остальное оставить в рабочем состоянии чтобы считал сумму и находил мин элемент
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Dj.Boom
сообщение 21.05.2007 8:55
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


проверить четность это элементарно dry.gif :

Код

uses crt;
var
s : string;
n : integer;
begin
n := 0;
clrscr;
readln(s);
  n:=ord(s[0]);
if (n mod 2) = 0 then
  writeln ('da')
else
  writeln ('net');
readln;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Slash
сообщение 21.05.2007 10:04
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  0  +


а можешь этот код вставить в код который в 1ом посте ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
nikita182
сообщение 21.05.2007 12:31
Сообщение #8


Пионер
**

Группа: Пользователи
Сообщений: 60
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


 
uses crt;
var
sum,chislo,n,b,min,l,h:integer;
s : string;
begin
clrscr;
h := 0;
min:=9999;
sum:=0;
l:=0;
repeat
writeln ('Vvedite chislo');
read (chislo);
sum:=sum+chislo;
n:=abs(chislo);
if chislo<>0 then
if chislo<min then min:=chislo;

str (chislo, s);
n:=ord(s[0]);
if (n mod 2) = 0 then
h:=h+1;

until chislo=0;
writeln ('Summa vseh chisel=',sum);
writeln ('Min element=',min);
writeln('Kol-vo nuzhnix chisel : ',h);
readkey;
end.



так?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Slash
сообщение 21.05.2007 14:36
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 18
Пол: Мужской

Репутация: -  0  +


Огромное спасибо ! как раз то что мне надо

P.S. жаль тебе репу поднять не могу ( 25 сообщений надо smile.gif )
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
nikita182
сообщение 21.05.2007 16:53
Сообщение #10


Пионер
**

Группа: Пользователи
Сообщений: 60
Пол: Мужской
Реальное имя: Никита

Репутация: -  0  +


рад, что смог помочь

мож кто другой подымет...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 21:43
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"