Нет ни одной информации, так как ни в одном предложении не говорится что друг живет именно в этом доме, именно на 5 этаже, и именно в 3 подъезде.
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
.Where(x->Abs(x).Between(10,99)).Count)
end.
<u>Пример</u>
N= 5
Вводите числа: 23 -4 100 -42 16
3
begin
var k:=ReadInteger('K=');
Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
.Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.
<u>Пример</u>
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2
110001.011100110011001100110011001100110011001100110011002
Вот, QBasic
INPUT x
PRINT 3*x^6*x^2-7
Фрактальная графика, также как векторная и трёхмерная,
является вычисляемой. Её главное отличие в том, что изображение строится по
уравнению или системе уравнений. Поэтому в памяти компьютера для выполнения
всех вычислений, ничего кроме формулы хранить не требуется. <span>Только изменив
коэффициенты уравнения, можно получить совершенно другое изображение. Эта идея
нашла использование в компьютерной графике благодаря компактности
математического аппарата, необходимого для ее реализации. Так, с помощью
нескольких математических коэффициентов можно задать линии и поверхности очень
сложной формы.</span>