Помогите пожалуйста решить задачу:
5-9 класс
|
Анжела поменяла себе тариф обслуживания сотовой связи. На начало месяца у нее на счету было 300 рублей. 13 числа она добавила еще 500 рублей. Хватит ли ей имеющихся средств если известно, что: 1. Оператор ей предоставляет кредит (возможность уходить в минус) в размере 100 рублей; 2. Минута исходящих вызовов стоит 2 рубля (количество исходящих минут вводим во время выполнения программы); 3. Исходящее текстовое сообщение стоит 1,5 рубля (количество смс вводим во время выполнения программы); 4. За использование услуги «Мобильный интернет» 250 рублей в месяц;
var
m, s: integer;
begin
writeln('Введите количество минут и количество СМС');
readln(m, s);
if 2 * m + 1.5 * s <= 650 then
writeln('Средств достаточно')
else
writeln('Средств не хватает')
end.
Комментарий удален
А можно готовой программой?
Комментарий удален
Другие вопросы из категории
Читайте также
1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;
2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.
3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.
Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
Помогите, пожалуйста, решить задачу!
Определить количество дней в первой декаде месяца, когда температура была выше средней.
Исходные данные: T - массив температуры
Промежуточные данные: i - порядковый номер
SUM - суммированная температура за 10 дней
SRT - средняя температура за 10 дней
Результирующие данные: K - количество дней с температурой выше средней
SUM:=SUM+T[i]
SRT:=SUM/10
K:=K+1, если выполняется SRT<T[i]
_______________________________
Program KTD
var T:array [1..10] of real;
SUM, SRT:real;
i,K:byte;
проехал 5000 м,в каждую след.минуту он проезжал путь в 2 раза больше чем предыдущий.Определите какой путь пройдёт автомобиль в 5 минут от начала движения. СРОЧНО ОЧЕНЬ ПОМОГИТЕ ПОЖАЛУЙСТА!!!
грамм,Чародейка-100 грамм.Если известна стоимость этих конфет за 1 кг.Пожалуйста!