ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Сумма.....
4 сообщений из 4, страница 1 из 1
Сумма.....
    #34906392
Bella_8686
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bella_8686
Участник
Привет!!!!
я изучала, но забыла!!!!
Дано трехзначеное число. Найти сумму его цифр. Посчитать сколько в нем четных цифр. Записать его на оборот.(на языке Паскаль)
Подскажите, пожалуйста!!!
заранее спасибо!!!
я сделала:
var i,k,s,z:integer;
n:Longint;
begin
Writeln('Введите трехзначеное число');
readln(n);
i:=0;
n:=999;
s:=0;
z:=0;
repeat
inc(i);
k:=n mod 10;
if(k mod 2)=0 then
inc(z);
s:=s+k;
n:=n div 10;
until n<=0;
writeln('s=',s);
writeln('z=',z);
end.

Я вводила любое число, и появится ошибка!!!
Подскажите!!!
Модератор:
просьба перестать давить на клавишу восклицательный знак.
А то я начну рассматривать цепочки из восклицательных знаков как спам и флуд
...
Рейтинг: 0 / 0
31.10.2007, 09:36
| Ответить | Цитировать | Написать  
Сумма.....
    #34906491
Фотография Куликов Алексей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Куликов Алексей
Участник
А что, разве настала пора экзаменов и зачётов? Чё-то рановато для этого........

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
 var  Chislo, Temp: Word;
    Ch:  array  [ 1 .. 3 ]  of  Byte;
    OddSum, Summ, i: Byte;
 begin 
  WriteLn('Введите число');
  ReadLn(Chislo);
   if  (Chislo <  100 )  or  (Chislo >  999 )  then 
    WriteLn('Введено не 3-х значное число.')
   else 
   begin 
     // Разбиваем число на состовляющие 
    Temp := Chislo;
    Ch[ 1 ] := Temp  div   100 ;
    Temp := Temp  mod   100 ;
    Ch[ 2 ] := Temp  div   10 ;
    Ch[ 3 ] := Temp  mod   10 ;
     // Подсчитываем количество четных чисел 
     for  i:=  1   to   3   do 
      OddSum := OddSum + (Ch  mod   2 );
     [i]// Подсчитываем сумму чисел 
     for  i :=  1   to   3   do 
      Summ := Summ + Ch[i];
   end ;
 end ;
...
Рейтинг: 0 / 0
31.10.2007, 10:14
| Ответить | Цитировать | Написать  
Сумма.....
    #34907621
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
Привет, Bella_8686!
Ты пишешь:

Bella_8686B> я изучала, но забыла!!!!
B> я сделала:это не ты "сделала", а сердобольный vkg
http://www.sql.ru/forum/actualutils.aspx?action=gotomsg&tid=489738&msg=4857470

--
With best regards, Мимопроходящий.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
31.10.2007, 14:07
| Ответить | Цитировать | Написать  
Сумма.....
    #34916168
65432100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
65432100
Участник
Bella_8686Модератор:
просьба перестать давить на клавишу восклицательный знак.
А то я начну рассматривать цепочки из восклицательных знаков как спам и флуд

Пользователи взбунтовались. Говорят: "Модератор не настоящий!!"

Модератор:
думаю,
два восклицательных знака, один раз на пост - не проблема
...
Рейтинг: 0 / 0
04.11.2007, 23:33
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Сумма.....
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=16&fpage=154&tid=1345730]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 244ms
total:  388ms
созд. / загр.: 388ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]