1) 100*100=10 000
2) 256=2^8 ---> 8 бит ~ 1 пиксель; 8 бит = 1 байт
3) 1*10 000 байт≈10 Кбайт
ответ 10 Кбайт
Серверная машина. Скорее всего так. Сервер это немного другое
<h2>
1.</h2>
program raf105;
var a,b,c:integer;
begin
write('Введите 3 числа: ');
readln(a,b,c);
if (a<b) and (a<c)
then writeln('Произведение 2 наибольших чисел: ',b*c);
if (b<a) and (b<c)
then writeln('Произведение 2 наибольших чисел: ',a*c);
if (c<b) and (c<a)
then writeln('Произведение 2 наибольших чисел: ',b*a);
end.
<h2>2.</h2><h3>а)</h3>
program raf105;
var a,i,b:integer;
begin
write('Введите число: ');
readln(a);
for i:=1 to a do
if ((a mod i)=0) and ((i mod 2)<>0)
then b:= b+i;
writeln('Сумма нечётных делителей введённого числа: ',b);
end.
<h3>б)</h3>
program raf105;
var a,a2,i,j,b:integer;
begin
write('Введите меньшее число: ');
readln(a);
write('Введите большее число: ');
readln(a2);
for j:=a to a2 do
begin
for i:=1 to j do
if ((j mod i)=0) and ((i mod 2)<>0)
then b:= b+i;
writeln('Сумма нечётных делителей числа ',j,' равна: ',b);
b:= 0;
end;
end.
<u><em>Язык программирования PascalABC</em></u>
Mid(<em>строка, номер начального символа[, количество возвращаемых символов]</em>)
Excel VBA
Внутри функции вызывается ввод трех чисел со строки, затем из этих чисел составляется список, затем формируется список из всех элементов исходного списка, которые больше нуля, в итоге выводится длина получившегося списка. Мне не хотелось использовать различные счетчики и if-elif, поэтому решение такое.
def func():
a = int(input())
b = int(input())
c = int(input())
numbers = [a, b, c]
return len([number for number in numbers if number > 0])
func()
Можно еще изменить решение так, чтобы введенные числа сразу отправлялись в список.
def func():
numbers = []
for i in range(3):
numbers.append(int(input()))
return len([number for number in numbers if number > 0])
func()