// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program<span> cyberforum707298;</span>
var
<span>N :integer; </span><span>// Данное число </span>
<span>otvet :integer; </span><span>// ответ </span>
<span>i:integer; </span><span>// счетчик в цикле </span>
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While<span> i*i <= N </span>do<span> inc(i);//</span>
otvet:=i*i;
<span>// вывод ответа </span>
Writeln('Ответ = ',otvet)
<span>end.</span>
800*600*24 = 11520000 бит
11520000 / 8 = 1440000 байт
1440000 / 1024 = 128 Кбайт
128 / 1024 = 0,125 Мбайт
Var a,b,s
begin
readln
end.
Чтобы перевести число из десятичной системы счисления в двоичную, нужно:
разделить число на 2 с остатком;
полученное частное снова разделить на 2 с остатком;
и т.д. до тех пор, пока в частном не получится 1;
выписать все остатки, начиная с последнего.
См. решение на рисунке
Полученный ответ содержит 5 единиц.