<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
var d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else
if d=0 then begin
var x:=-b/2/a;
Writeln('Корень уравнения x=',x)
end
else begin
var x1:=(-b-Sqrt(d))/2/a;
var x2:=(-b+Sqrt(d))/2/a;
Writeln('Корни уравнения: x1=',x1,', x2=',x2)
end
end.
<span>n = int(input())
max5 = <span>0
</span>for i in (1, n+1):
a = int(input())
if a % 5 == 0 and a > max5:
max5 = a
print(max5)
</span>
var
a:byte;
begin
write('Введите число '); readln(a);
if (a div 10 = 4) or (a mod 10 = 4) then
writeln('В число входит цифра 4')
else
writeln('цифра 4 в число не входит');
end.