| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > [Pascal] экзаменационная задача |
| Автор: Olya_from_Kirov 23.1.2008, 17:05 |
Привет ребята. Помогите пожалуйста девушке с проблемой. Я учусь на экономиста. Нам в программу совершенно непонятно зачем впихнули Паскаль.  Завтра экзамен по информатике, а я в Паскале ни черта не смыслю. Помогите мне пожалуйста завтра написать программу. Задачу завтра сюда выложу с экзамена через мобильник. Если такое возможно, отпишитесь здесь плиз.P.S. только пишите пожалуйста программу обычным текстом, а то с экрана мобильного может не отобразиться. P.P.S. модераторы, не удаляйте тему пожалуйста, если что не так. ну в порядке исключения. P.P.P.S если прокатит можем и познакомиться...  |
| Автор: Sergio02 23.1.2008, 20:07 |
| А во сколько экзамен? |
| Автор: Olya_from_Kirov 23.1.2008, 20:36 |
| Я пока еще не решила в какой поток пойду. В 8-00 или в 10-00 часовю Но точно до 13-20. |
| Автор: Sergio02 23.1.2008, 20:40 |
| Попытаюсь помоч. |
| Автор: Olya_from_Kirov 23.1.2008, 22:41 |
| Я рассчитываю на вас. |
| Автор: m0ro 24.1.2008, 00:41 |
попробуем-с помочь, если никуда не дернут  |
| Автор: Olya_from_Kirov 24.1.2008, 08:37 |
| Найти сумму четных цифр введенного числа. Поскорее плиз |
| Автор: Sergio02 24.1.2008, 09:24 |
| program qdfgh; {$R-,S-} uses Crt; var a:longint; b:longint; c:longint; begin Writeln('vvedite chislo'); readln(a); c:=0; while a>1 do begin b:=a mod 10; a:=a div 10; if (b mod 2)=0 then begin c:=c+b; end; end; write( c ); end. |
| Автор: Olya_from_Kirov 24.1.2008, 10:55 |
Ураа!!! Я сдала экзамен. На 5!!  Спасибо огромное. Чмоки вас всех, а Sergio02, в особенности. Жаль не могу плюс поставить. Поставьте плиз Sergio02, плюсик от меня, кто может.  |
| Автор: THandle 24.1.2008, 11:18 |
| Olya_from_Kirov, сейчас поставлю. |
| Автор: m0ro 24.1.2008, 19:13 |
| эх... не было меня :( поздравляю со сдачей) |
| Автор: Sergio02 24.1.2008, 21:15 |
| Olya_from_Kirov, рад за вас. |