Написать программы в pascalabc 1. даны два числа. удвойте большее число, утройте меньшее число. 2. у васи было 300 рублей. он решил купить несколько шоколадных батончиков по некоторой цене. хватит ли у него денег? напишите программу, которая запрашивает количество батончиков и цену батончиков. в результате должен появиться ответ "хватит денег" или "не хватит денег" и сколько денег останется в случае, если денег хватит. если же денег не хватит, то вывести, какой суммы не достает.
aluanakim
1
28.04.2019 18:31
2
Другие вопросы по теме Информатика
rebrot40
06.04.2021 14:45
ElleFox
20.05.2020 10:32
baha50
20.05.2020 10:32
osadchevasasha
20.05.2020 10:32
амон2288
20.05.2020 10:32
котикkatya
14.04.2021 08:50
ololol1213
14.04.2021 08:48
Ellenkpop
16.04.2020 09:19
Популярные вопросы
- Когда и как победила соц. революция в китае? (вторая половина 20 века)...
1 - Составить рассказ в художественном стиле. !...
3 - Есть текст- рядок который состоит из слов, пропусков и знаков препинания и заканчивается...
3 - Укажіть причини відмінностей в кліматичних показниках рівнинної частини території...
2 - Обчислити похідні функції 1) у=2sin(2׳) 2) у=(3×3-5ײ+6)² 3 ) у=x³-3х²-⅙x⁶+5...
3 - This is a landscape insouth-west england. theroad is going down into and there...
2 - Внутреннее строение клубня и луковицы ?...
2 - Нужна ! дали вот такую штуку на защиту лабораторной...
1 - Решить под буквами а и б из обоих столбцов...
2 - По лит-ре, повесть шинель написанная н.в.гоголем мини-сочинение на тему поднятие...
1
Объяснение:
1.
var a, b: integer;
begin
read(a, b);
if a < 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 < 300 then writeln('Хватит денег')
else writeln('Не хватит ', kol*cen - 300, ' рублей.')
end.