Нет ни одной информации, так как ни в одном предложении не говорится что друг живет именно в этом доме, именно на 5 этаже, и именно в 3 подъезде.
Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами
program Znanija;
var n,a,i:integer;
begin
readln(n);
a:=n;
while(n > 0) do
begin;
i := i + 10 + n mod 10;
n := n div 10;
end;
if i mod 2 = 0 then
writeln('Сумма цифр числа ', a, ' - чётное число')
else
writeln('Сумма цифр числа ', a, ' - нечётное число');
end.
Мышь, мне кажется. Иначе что еще с прилагательным "полевая" перестаёт относиться к информатике.
Должно быть так:
V=51200*4*64/1024=32000 kbits, для перевода в кБайты:
V=32000/8=4000 kbytes
Конечно б, это формальный язык