SCREEN 12
INPUT "risovat den ili noch(l/y)"; a$
IF a$ = "l" THEN a = 14 ELSE a = 15
CIRCLE (200, 200), 100, a
PAINT (200, 200), a, a
может так
Для перевода чисел из двоичной в восьмеричную систему счисления двоичное число делят на группы по 3 разряда (в целой части - справа налево, в дробной - слева направо) и каждую группу заменяют на соответствующую ей восьмеричную цифру.
110000110101(2) = 110 000 110 101(2) = 6065(8)
1010101(2) = 1 010 101(2) = 125(8)
0,10100111001(2) = 0,101 001 110 010(2) = 0,5162(8)
0,1111110001(2) = 0,111 111 000 100(2) = 0,7704(8)
Ответ:
5div12 = 0
5 mod 12 = 5
1327div div 10 = 132
Объяснение:
div - целочисленное деление
mod - остаток от целочисленного деления
Ответ: только что был этот вопрос: сделал такую же программу
program Test;
var
n, a, i, nmin, amin: Integer;
begin
Write ('Количество чисел: ');
ReadLn (n);
nmin := 1;
amin := MaxInt;
WriteLn ('Введите ', n, ' чисел:');
for i := 1 to n do begin
ReadLn (a);
if a < amin then begin
amin := a;
nmin := i;
end;
end;
WriteLn ('Вывод: ', amin, ' ', nmin);
ReadLn;
end.
<span>Program Integer_1;
var l,k: integer;
begin
write ('Значение L:');
readln (l);
k := l div 100;
write ('Количество полных метров: ',k,'.');
end<span>.</span></span>