var
kurs, summa, rub: double;
begin
readln(kurs, summa);
rub := kurs * summa;
writeln(trunc(rub), ' РУБ ', (frac(rub) * 100):2:0, ' КОП');
end.
Объяснение:
Получаем два числа, затем перемножаем курс на сумму в долларах, чтобы получить рубли и затем выводим в нужном формате.
trunc(a) получает целую часть от числа
frac(a) получает дробную часть от числа, затем умножаем на 100 для преобразования дробной части в целую(для вывода на экран) (например число 0.22 преобразуется в 22.0) и с :2:0 выводим в формате 2 цифры до запятой и 0 после.
Как и в математике. Сначала выполняем операции в скобках, потом вне.
a=10 b=20
a) rez:= (a=10) or (b>10) = TRUE or TRUE = TRUE
б) rez:= (a>5) and (b>5) = TRUE and TRUE = TRUE
в) rez:= (not (a<15)) or (b>20) = (not TRUE) or FALSE = FALSE or FALSE = FALSE
Программа, так полагаю, на паскале. Вот примерный код
var
a, b :integer;
rez : boolean;
begin
a:=10;
b:=20;
rez:=(a=10) or (b>10);
writeln(rez);
end.
Вместо строчки rez:=(a=10) or (b>10); подставляешь то, что тебе нужно, и будет счастье.