function opkd(n: integer): integer;
var i,k: integer;
begin
k:=0;
for i:=1 to n do if n mod i=0 then k:=k+1;
opkd:=k;
end;
var n,i,k: integer;
begin
k:=0;
readln(n);
for i:=1 to n do if opkd(i) mod 2=0 then k:=k+1;
write(k);
end.
<span>Если нигде я не ошибся, то Петя записал числа от 1 до 1079 и начал писать следующее число 1080, написал 1 и бросил. Ответ 1</span>
Var x,y,z,c:real;
Procedure P(x,y,z:real; Var c:real);
Begin
c:=(x+y+z)/3;
End;
Begin
write('Введите x,y,z: ');readln(x,y,z);
P(x,y,z,c);
writeln('Среднее арифметическое = ',c);
End.
8бит=1байта
16бит=2байта
8*32*64*2=32768байт переводим в Кбайты 1Кбайт=1024байта
32768/1024=32Кбайт
Если перевести в двоичную систему будет 974.
Смотри, все просто.
На компьютере открываешь калькулятор, жмешь на кнопку "Вид" и выбираешь "Программист".
С правой стороны, где-то по середине будет прямоугольник с "Hex;Dec;Oct;Bin".
Hex-шестнадцатиричная система счисления.
Dec-десятичная система счисления.
Oct-восьмеричная система счисления.
Bin-двоичная система счисления.
Не сложно,
16
10
8
2
Тебе нужна система на 10 и 2.
То есть из 2 в 10,
Как я говорил, 2-это Bin.
Жмешь на нее.
Пишешь свое число, а именно 1111001110.
Нули могут "не набираться", это нормально и на самом деле они набираются, просто чуть ниже главной строки.
Дальше тебе нужно перевести число в 10 систему, то есть в Dec.
Жмешь.
Получается число.
Это число-номер знака/буквы/цифры в табличке.
"Стандартная часть кода ANSI (или ASCII, разницы просто нет)" и вторая часть этой таблицы "Кодовая страница CP1251".
Там все пронумерованно.
К примеру под номером 32 пробел, под 71 G, под 212 Ф.
И повторюсь, в этих двух таблицах ты ищешь номер который у тебя выдал калькулятор.
И все.
Правда, вся суть в том, что я не нашел в таблицах этой буквы/цифры/символа.
Возможно, тебе нужно только само получившееся число, а именно 974.
Надеюсь, хоть что-то смог объяснить.