Объяснение:
program kek;
var
l1, r1, l2, r2, x: Integer;
begin
read(l1, r1, l2, r2, x);
if ((x-l1)*(r1-x) >= 0) then writeln('Первый отрезок.');
if ((x-l2)*(r2-x) >= 0) then writeln('Второй отрезок.');
end.
164•8•128•32•64/8•1024•1024=
164•2^7•2^5•2^6/2^10=
164•2^18/2^10=
164•2^8=
164•2^8/2^10=164/4
41Кбайт
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
begin
var a:=ReadReal('Введите зарплату в первый месяц->');
var z:=0.00;
for var i:=1 to 12 do
begin
Writeln('Доход за ',i,' месяц составил ',a:0:2,'р.');
z+=a;
a:=a+a*0.1;
end;
Writeln('Зарплата за год: ',z:0:2,'р.');
end.
Пример:
Введите зарплату в первый месяц-> 100
Доход за 1 месяц составил 100.00 р.
Доход за 2 месяц составил 110.00 р.
Доход за 3 месяц составил 121.00 р.
Доход за 4 месяц составил 133.10 р.
Доход за 5 месяц составил 146.41 р.
Доход за 6 месяц составил 161.05 р.
Доход за 7 месяц составил 177.16 р.
Доход за 8 месяц составил 194.87 р.
Доход за 9 месяц составил 214.36 р.
Доход за 10 месяц составил 235.79 р.
Доход за 11 месяц составил 259.37 р.
Доход за 12 месяц составил 285.31 р.
Зарплата за год: 2138.43 р
P.S Сделал как понял.
<span>А) (А и «Сканер является устройством ввода») = ИСТИНА
А =1 (истина)
</span>«Сканер является устройством ввода»=1 (истина)
<span>
Б) (С или «Высказывание может быть вопросительным предложением») = ИСТИНА
С =1 (истина)
</span>«Высказывание может быть вопросительным предложением»=0 (ложь)
<span>
В) (F или «Оперативная память ПК является энергонезависимой») = ЛОЖЬ
F=0 (ложь)
</span>«Оперативная память ПК является энергонезависимой»=0 (ложь)