Язык Питон. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 Программа получает на
вход количество чисел в последовательности, а затем сами числа.

Question

Информатика: Язык Питон. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6 Программа получает на вход количество чисел в последовательности, а затем сами числа.

Krooop04 · Accepted Answer

1) program lineynoeuravnenie;
var a, b: integer; x: real;
begin
writeln ('Введите коэффициенты a и b');
readln (a, b);
x:=-b/a;
write ('Решите уравнение', x);
end.

2) program veschestvennoe;
var a, b, c: integer; d, x1, x2: real;
begin
writeln ('Введите коэффициент a, b, c');
readln (a, b, c);
if a=0 then
begin
x1:=-c/b;
write ('Одно решение', x1),
end;
d=b*b-4*a*c;
if d<0 then
write ('Корней нет');
if d=0 then
begin
x1:=-b/(2*a);
write ('Одно решение', x1);
end;
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write (x1,'',x2);
end;
end.

MOGZ ответил