|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.06.2011, 14:43 | #1 |
Регистрация: 09.06.2011
Сообщений: 4
|
как сделать чтобы прога читала из файла и выводила в файл
ребят как сделать чтобы прога читала сама данные из файла и выводила в файл.
вот условие:сколько можно купить быков, коров и телят, платя за быка - 10 руб, за корову - 5 руб, а за теленка - 0,5 руб, если на 100 рублей надо купить 100 голов скота. вот прога: var byk,corova,telenok:byte; b:boolean; begin byk:=0; repeat inc(byk); until (((100-19*byk) mod 9)=0) or (byk=5); if ((100-19*byk) mod 9)=0 then begin corova:=(100-19*byk) div 9; telenok:=100-(Byk+corova); if (byk*20+corova*10+telenok)=200 then begin b:=false; writeln('byk-',byk); writeln('corova-',corova); writeln('telenoh-',telenok); end; end; readln; end. |
09.06.2011, 15:29 | #2 |
Форумчанин
Регистрация: 16.08.2008
Сообщений: 276
|
Искусственный интеллект - фигня по сравнению с естественной глупостью
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как сделать так, чтобы прога ждала завершения работы другой? | Cерий | Помощь студентам | 7 | 07.01.2011 23:53 |
троки в С++, Как сделать чтобы прога определяла слова-палиндромы? | ermackprogramis | Общие вопросы C/C++ | 1 | 28.12.2010 22:18 |
как сделать,чтоб таблица в файл выводила выравненной? | Petruha-nsk | Общие вопросы C/C++ | 8 | 06.06.2009 20:21 |
Как сделать чтобы прога не закрывалась | vitalik007 | Общие вопросы Delphi | 8 | 12.01.2008 23:32 |
Как сделать чтобы xml файл открывался в Delphi | KlErik | Общие вопросы Delphi | 2 | 24.05.2007 11:02 |