Осн. 2 -> Осн. 8 -> Осн. 10 -> Осн. 16
101010 -> 52 -> 42 -> 2A
1010111 -> 127 -> 87 -> 57
101000111 -> 507 -> 327 -> 147
101010 -> 52 -> 42 -> 2A
var d, m:integer;
var h:real;
begin
readln(d);
m := d * 2;
h := m / 60;
m := m mod 60;
write('Количество часов = ' + Int(h) + ' количество минут = '+ m)
end.
INPUT "n="; n
DIM a(n) AS INTEGER
RESTORE
FOR i = 1 TO n
READ a(i)
NEXT i
FOR i = 1 TO n - 1
mi = a(i): u = i
FOR j = i TO n
IF a(j) < mi THEN
mi = a(j): u = j
END IF
NEXT j
r = a(i): a(i) = mi: a(u) = r
<span>NEXT i
</span>FOR i = 1 TO n
PRINT a(i);
NEXT i
END
DATA 12,-3,34,2,76,0,-45,23,12,0,23,6
Браузер это софт который позволяет смотреть веб страницы.чаще всего сайты используют протокол http
<span>) Почему именно так: if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6) </span>
<span>else gotoxy(wherex+1,wherey-6); (не понятно почему именно диапазон месяцев от 1 до 8 включительно?) </span>
<span>2) Зачем писать так: if d+1=8 then {если день недели воскресенье} , а не вот так if d=7 then ? (если писать что d=7, то числа месяцев отходят от нужной позиции)<span> </span></span>