Дана последовательност, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных букв; между соседними словами — запятая, за последним словом — точка . напечатать все слова последователоьности, которые отличны от последнего слова , предварительно преобразовав каждое из них по след правилу: удалить из слова первую букву.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
program Strins; var S,LastWord,Word:string; ms:array[1..30] of string; dot,i:integer; begin write('S:'); readln(S); dot:=pos('.',S); i:=dot; while (s[i]<>',') do dec(i); LastWord:=copy(S,i+1,dot-i-1); i:=0; Word:=''; while i<dot do begin inc(i); if S[i]<>',' then Word:=Word+S[i] else begin if Word<>LastWord then begin delete(Word,1,1); Writeln(Word); end; Word:=''; end; end; end. |
как записать программу в Турбо Паскаль, аргументы : срок кредитования = 2 года, банковский процент = 10% = 0,1, сума кредита 1000,00 руб. результат первый год — часть тела кредита для возврата = 500,00, оплата процентов = 100,00, всего выплат за первый год = 600,00 Результат второй год — часть тела кредита для возврата = 500,00, оплата процентов = 50,00, всего выплат за второй год = 550,00
Не понятно условие по которым высчитывается процент… но отвечу такой же загадкой :):