Уравнение ax^2+bx+c=0. Вывести на экран количество решений. Если бесконечное количество решений, то R. Вводятся вещественные числа a, b и с.

Вывод целое число или символ R.

For example:

Input Result
0 1 2
1
1 0 -4
2
1 -5 6
2
На паскале

Привет

Объяснение:

Качество нашей водопроводной воды, мягко говоря, далеко от международных стандартов. Согласитесь, пить неочищенную воду из-под крана — это экстремальное занятие, которое может обернуться серьезными проблемами со здоровьем. Поэтому покупка хорошего фильтра является первостепенной задачей.

Если вы не любите рисковать своим здоровьем, то наверняка задумываетесь над тем, как выбрать фильтры для воды. Разнообразие предложений на рынке заставит растеряться даже самого смелого.

Мы вам расставить все на свои места и определиться с выбором — в этой статье рассмотрены существующие разновидности фильтрующих при и их характеристики.

А также приведены основные критерии, влияющие на выбор наиболее подходящего фильтра, и рейтинг лучших производителей как отечественных, так и зарубежных. Для лучшего восприятия информации подобраны наглядные схемы и фотоматериалы, экспертные видеорекомендации по выбору.

Страницы фильтров: о чем вообще речь?

Фильтры — параметры, которые сузить список товаров, чтобы было проще выбрать нужный. Этот список в большинстве случаев можно встретить в левой колонке на страницах категорий.

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.