Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.
Program P1;
var z,x,y,p,e:integer;
begin
write('Количество этажей = '); readln(x);
write('Количество квартир на лестничной площадке = ');
readln(y);
write('Номер квартиры = '); readln(z);
p:=(z-1) div (x*y)+1;
e:=((z-(p-1)*x*y)-1) div y +1;
writeln('Квартира ',z,' находится в ',p,' подъезде на ',e,' этаже');
end.
Пример:
Количество этажей = 9
Количество квартир на лестничной площадке = 4
Номер квартиры = 67
Квартира 67 находится в 2 подъезде на 8 этаже
формальные языки это те, которые придумали люди , но на них они не разговаривают, а используют в своей профессиональной деятельности
поэтому формальными можно считать, например, 1,2,5,6
<span>10 INPUT D</span><span>
30 IF D > 1070 AND D < 1100 AND D MOD 7 = 0 AND D MOD 5 = 0
</span><span> THEN PRINT "Вводимый год может быть годом рождения китайского поэта"
</span><span> ELSE PRINT "Вводимый год не может быть годом рождения китайского поэта"</span>
END IF
<span>40 END</span>