1. Программа запрашивает два числа, и, если они оба положительные, вычисляет их сумму, иначе вычисляет их произведение.
2. Программа запрашивает сумму кредита А, а так же процент по кредиту В и сообщает, какую сумму S вы вернёте через год. S, А объявляете real в разделе описания переменных.
dancevera2017
2
24.04.2020 21:01
5
Другие вопросы по теме Информатика
dmoro
27.07.2019 15:00
aaa140
27.07.2019 15:00
Emil304
09.09.2019 05:50
Yarik200825
09.09.2019 05:50
Arina5751
09.09.2019 05:50
rasimfanov
09.09.2019 05:50
alexxxxarchenko
26.07.2019 14:10
zoeves
26.07.2019 14:10
Популярные вопросы
- Побудуйте складносурядне речення про власну мрію. зробіть синтаксичний розбір.накресліть...
3 - После бурных 1830-х и 1840-х гг. на британских островах наступило затишье....
3 - Вкниге 144 листа.один машинист может напечать за 12 дней,другой за 9 и третий...
3 - Название этого насекомого восходит к прилагательному, имевшему значение ....
1 - Поставьте знаки препинания тёплое лето наступает ненастная осень перелётные...
3 - Определите слова,о которых идёт речь,и напиши их: устройство выполнять заданную,четко...
3 - Рассказ с элементами описания о посещении музея шишкина...
3 - По дан оксид серы 6 массой 6,4 г. вычислите число молекул оксида серы 4 в...
3 - Доклад на тему охрана лесных массивов на территории краснодарского края !...
2 - Кем из себя был робинзон крузо? (кем был робинзон крузо? ) 1-3 предложения....
2
Объяснение:
1)
var a,b:integer;
begin
readln(a,b);
if (a>0) and (b>0) then
writeln(a+b)
else
writeln(a*b)
end.
2)
var b:integer;
var a,s:real;
begin
readln(a);
writeln('введите проценты годовых например 14');
readln(b);
s:=a/100*(100+b);
writeln(s)
end.