ПОМОГИТЕ РЕБЯТ)))Сделайте как в Pascal Только подробноЗа год квартплата повышалась два раза.
ПОМОГИТЕ РЕБЯТ)))
Сделайте как в Pascal Только досконально
За год квартплата повышалась дважды. 1-ый раз на 30%, а 2-ой на 40%. Год назад семья платила квартплату, которая сочиняла 4500 тенге в
месяц.Напишите программу,посчитывающую нынешнюю квартплату семьи.
2 ответа
Anja Niuitina
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);
var k: real;
begin
k:=4500; // известно что квартплата 4500
k:=k*1.3; //мы увеличиваем на 30 %
k:=k*1.4; // новейшую квартплату мы увеличиваем ещё на 40 %
write(k); // выводим значение новой квартплаты
end.
Можно организовать ввод квартплаты тогда вместо строки k:=4500;
мы напишем readln(k);
Степан
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, тогда надобно убрать рид.
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, тогда надобно убрать рид.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов