Ответ: 4.
Конечно, прокручивать это все "в уме" смысла нет. См. вложение.
Var
price, prepay:integer;
begin
Write('Введите стоимость квартиры -> ');
Readln(Price);
Write('Введите предоплату за квартиру в процентах -> ');
Readln(prepay);
Case Prepay of
20:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.05);
30:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.06);
50:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.08);
100:Writeln('Общая стоимость квартиры -> ', Price - Price * 0.1);
end;
end.
<u>Пример:</u>
Введите стоимость квартиры -> 1000000
Введите предоплату за квартиру в процентах -> 100
Общая стоимость квартиры -> 900000
П1 -> П0 x>=0 21
x^2 ИП1 x^2 + П2 4 - x>=0 21
ИП2 1 - x<0 21 1 С/П 0 С/П
Ввод: x ^ y С/П.
Блок-схема примерно такова:
/ x, y /
|
нет < x > 0 > да |
|----- нет < x^2 + y^2 <= 4> да |
|----------------------- нет < x^2 + y^2 >= 1 > да |
L / не принадлежит / / принадлежит /
const n=5;
var a:array [1..n] of integer;
i: integer;
begin
writeln ('Введите a[1]');
read (a[1]);
for i:=2 to n do a[i]:=a[i-1]*5;
for i:=1 to n do write(a[i],' ')
end.
Если ввести a[1]=1, то программа выводит: 1 5 25 125 625
в системе счисления с основанием 6
вес разрядов (6)(1)
тогда 40(с основанием 6) = 24 + 0
41(с основанием 6) = 24 + 1
в ответе два числа 24, 25
2) оканчивается на 101
101 = 5
1101 = 13
10101 = 21
следующее уже больше 11101 = 29
3) в троичной системе веса разрядов (9)(3)(1)
21 в троичной системе = 6+1 = 7 в десятичной
121 = 9+6+1 = 16
221 = 18+6+1= 25
следующее уже больше 25-ти
321 = 27+6+1=34