Var
price,discnt:real;
begin
Read(price);
Readln(discnt);
Writeln(price * (1 - discnt/100));
end.
<u>Пример:</u>
100
12.5
87.5
Информатику плохо знаю, поэтому могу дать ответ только на 1 и 2 задание
1
а)11 мб б) 7168 мб с) 5 мб
2
а) 524228 б б)10240 кб
var
a, b: integer;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
var x := Range(a, b);
var y:=(x.Where(x -> (x>=10) and (x<=99)));
writeln('Двузначные числа от A до B: ');
y.Println;
writeln('Двузначные числа, которые делятся на 15: ');
y.Where(x -> (x mod 15)=0).Println;
end.
1 О и М Б1 и Б2 к берегу2 -
2 О и М Б1 к берегу1 Б2
3 М и Б1 О к берегу2 Б2
4 М и Б1 Б2 к берегу1 О
5 М Б1 и Б2 к берегу2 О
6 М Б1 к берегу1 О и Б2
7 Б1 М к берегу2 О и Б2
8 Б1 Б2 к берегу1 О и М
9 - Б1 и Б2 к берегу2 О и М