|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.01.2017, 19:29 | #1 |
Регистрация: 30.01.2017
Сообщений: 6
|
Помогите сократить код.
Программа берет числа из даты(дд/мм/гггг) и суммирует их. Помогите, еще не опытен)
program fd; var date, strsumma, int, int2: string; day1, day2, month1, month2, year1, year2, year3, year4: string; iday1, iday2, imonth1, imonth2, iyear1, iyear2, iyear3, iyear4, k, summa, summa2, intsumma, iint, iint2: integer; begin readln(date); day1 := copy(date, 1, 1); day2 := copy(date, 2, 1); month1:= copy(date, 4, 1); month2:= copy(date, 5, 1); year1:= copy(date, 7, 1); year2:= copy(date, 8, 1); year3:= copy(date, 9, 1); year4:= copy(date, 10, 1); val(day1, iday1, k); val(day2, iday2, k); val(month1, imonth1, k); val(month2, imonth2, k); val(year1, iyear1, k); val(year2, iyear2, k); val(year3, iyear3, k); val(year4, iyear4, k); summa := iday1 + iday2 + imonth1 + imonth2 + iyear1 + iyear2 + iyear3 + iyear4; writeln(summa) end. |
30.01.2017, 20:34 | #2 |
Техножрец
Форумчанин
Регистрация: 04.07.2014
Сообщений: 289
|
Например, так
Код:
— Двери есть везде. Просто нужно знать, как в них войти.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
сократить код | kostan3 | Visual C++ | 0 | 15.03.2013 14:08 |
сократить код | Kirja23 | Microsoft Office Excel | 1 | 20.02.2013 22:34 |
сократить код | kostan3 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 17.02.2013 17:24 |
Сократить код | shapiro | Помощь студентам | 0 | 14.04.2010 17:38 |