Помогите пожалуйста написать программки в PascalABC1. Даны два числа. Удвойте большее
Помогите пожалуйста написать программки в PascalABC
1. Даны два числа. Удвойте большее число, утройте наименьшее число.
2. У Васи было 300 рублей. Он решил покупать несколько шоколадных батончиков по некой стоимости. Хватит ли у него средств? Напишите программку, которая запрашивает количество батончиков и стоимость батончиков. В результате должен показаться ответ "хватит средств" или "не хватит средств" и сколько средств останется в случае, если средств хватит. Если же средств не хватит, то вывести, какой суммы не достает.
Ответ:
Разъясненье:
1.
var a, b: integer;
begin
read(a, b);
if a lt; b then
begin
a := a * 3;
b := b * a
end
else
begin
a := a * 2;
b := b * 3;
end;
print(a, b);
end.
2.
var kol, cen: integer;
begin
writeln('Введите количество и стоимость');
read(kol, cen);
if kol * cen lt; 300 then writeln('Хватит средств')
else writeln('Не хватит ', kol*cen - 300, ' рублей.')
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.