Ответ:
Linux, Win Vista, Mac OS, Total Commander - системное
Pascal ABC.NET - инструментальное
остальное - прикладное
Объяснение:
Ответ:
использовать Робот
алг
нач
закрасить
нц пока слева свободно
влево
если снизу стена то закрасить всё
кц
нц пока сверху свободно
вверх
если слева стена то закрасить всё
кц
кон
program While2;
uses PT4;
function Iter(a, b: real): integer;
begin
Result := 0;
repeat
Result += 1;
a -= b
until a < b
end;
begin
Task('While2');
var (A, B) := ReadReal2();
Write(Iter(A, B))
end.
Язык не указан, решение будет приведено на двух языках: наиболее популярном в школах Pascal и, на мой взгляд, незаслуженно считающемся "детским и непрофессиональным" BASIC (в примитивной его версии qBASIC). Как можно будет убедиться, в Бейсике программа получается даже короче и, я бы сказал, даже нагляднее..
<em><u>Pascal:</u></em>
var
x:integer;
begin
x:=1;
Writeln(' x y=4x-5');
while x<30 do
begin Writeln(x:2,4*x-5:6); x:=x+3 end
end.
<em><u>Результат выполнения программы:</u></em>
x y=4x-5
1 -1
4 11
7 23
10 35
13 47
16 59
19 71
22 83
25 95
28 107
<em><u>qBASIC:</u></em>
PRINT " x y=4x-5"
FOR x = 1 TO 30 STEP 3
PRINT x, 4 * x - 5
NEXT x
END
Результат выполнения программы:
x y=4x-5
1 -1
4 11
7 23
10 35
13 47
16 59
19 71
22 83
25 95
28 107
Пусть х - искомое основание системы счисления
5х+3х+3=х²+х+3
х²-7х=0
х(х-7)=0
х=0 или х=7
основание системы счисления не может быть равным 0, следовательно х= 7
101₇ = 49+1=50 лет
50₇=35 дочерей
33₇ = 21+3=24 сына
113₇=49+7+3=59 детей