Сделайте как в pascal только подробно за год квартплата повышалась дважды. первый раз на 30%, а второй на 40%. год назад семья платила квартплату, которая составляла 4500 тенге в месяц. напишите программу, посчитывающую сегодняшнюю квартплату семьи.

Program as; var a,b,c,d,e: real; begin writeln ('введите квартплату'); read (a); b: =a*0.3; // узнаем 30% от суммы c: =a+b; // получаем ответ после повышения на 30% d: =c*0.4; //узнаем 40% от новой суммы e: =c+d; // получаем конечный ответ writeln('квартплата равна',e); end. если надо, можно ввести константу в размере 4500, тогда надо убрать рид.

Program kvart; var k: real; begin   k: =4500; // известно что квартплата 4500 k: =k*1.3; //мы увеличиваем на 30 % k: =k*1.4;   // новую квартплату мы увеличиваем ещё на 40 % write(k); // выводим значение новой квартплаты end.можно организовать ввод квартплаты тогда вместо строки k: =4500; мы напишем readln(k);