INPUT "a="; a
INPUT "b="; b
INPUT "c="; c
d = b * b - 4 * a * c
IF d < 0 THEN
PRINT "корней нет"
END
END IF
IF d > 0 THEN
PRINT "x1="; (-b - SQR(d)) / 2 / a
PRINT "x2="; (-b + SQR(d)) / 2 / a
ELSE PRINT "x="; (-b) / 2 / a
END IF
Попробуй:
("А" одно из чисел последовательности, а Q кол-во нулей)
Begin
For i:=1 to n do
Read(A);
If A=0 then inc(Q);
Write(Q);
End.
n = float(input('С какой скоростью шли богатыри? '))
r = float(input('Какое расстояние им предстоит преодолеть? '))
print('Время в пути (в минутах): ' + str(r/n))
101101110= 556 (Р=8), 10100100= 244 (Р=8) .... Вроде так
var
a, b, c:real;
count:integer;
begin
count := 0;
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
if Frac(a) = 0 then
count := count + 1;
if Frac(b) = 0 then
count := count + 1;
if Frac(c) = 0 then
count := count + 1;
writeln('Целых чисел - ', count);
end.