Нет ни одной информации, так как ни в одном предложении не говорится что друг живет именно в этом доме, именно на 5 этаже, и именно в 3 подъезде.
Program hhh54;
var x: longint;
begin
read (x);
if (x mod 6=0) and ( x mod 10=4) then write ((x div 100)+((x div 10) mod 10)+(x mod 10))
else write ((x div 100)*((x div 10) mod 10)*(x mod 10));
end.
бит, байты, килобайт, мегабайт, гигабайт. Ответ :г
Надеюсь вам можно использовать массивы, если нет, то скажите, переделаем
Program kvur;
var a,b,c,d: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
writeln('D=b*b-4*a*c=',d);
if (d>0) then begin
writeln('D>0 => уравнение имеет 2 действительных различных корня ');
writeln('x1= ',(-b+sqrt(d))/(2*a));
writeln('x2= ',(-b-sqrt(d))/2*a);
end else if (d=0) then begin
writeln('D=0 => уравнение имеет 2 совпадающих корня');
writeln('x1=x2=',-b/(2*a));
end else writeln('D<0 => уравнение не имеет действительных корней');
end.