deat2OO8, пиши. Program deat2008; Uses crt; Var i,vklad,srok:real; Begin Clrscr; Writeln("введите сумму вклада"); Readln(vklad); Writeln("введите срок хранения вклада(16 или 20 месяцев)"); Readln(srok); If srok=20 then For i:=1 to 20 do Vklad:=vklad
1.02; Else if srok=16 then For i:=1 to 16 do Vklad:=vklad1.05; Else writeln("введи нормальный срок"); Writeln("вклад=",vklad); Readln; End. Вместо 16 и 20 можешь любые сроки поставить,ток тогда поправь программу
Ссылка на пост
11 дек 2008 в 14:20