Сделайте как в 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);
1)var n:longint; begin readln(n); if n mod 5=0 then writeln('Число N является кратным чилслу 5')else writeln('Чило N не является кратным числу 5' ); end. 2) var a,b,c:longint: begin readln(a,b,c); if (a+b)div 2=c then writeln('Число C является средним арефметическим чисел A и B') else writeln(' Число C является средним арефметическим чисел A и B') else writeln('Число C не является средним арефметическим чисел A и B '); end. 3) var a:longint; begin write('Сколько вам лет?'); readln(a); if a<14 then write('Вам еще рано получать паспорт?') else write('Поздравляю! Вы гражданин России!'); end. 4) var a:extended; begin readln(a); if (a>36)and(a<37) then writeln('Вы здоровы') else writeln('Вы больны'); end.
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, тогда надо убрать рид.