===== PascalABC.NET =====
begin
var(a,b,c) := ReadReal3;
var D := b*b-4*a*c;
if D<0 then
Print('Нет действительных корней')
else if D=0 then
Print('x1, x2 =', -b/2/a)
else
begin
D :=Sqrt(D);
Print('x1 =', (-b -d)/(2*a),
' x2 =', (-b +d)/(2*a))
end;
end.
sad = 0
minlol = 190
maxlol = 150
name = input()
while name != '!':
name = int(name)
if name >= 150 and name <= 190:
sad += 1
if name < minlol:
minlol = name
if name > maxlol:
maxlol = name
name = input()
print(sad)
print(minlol, maxlol)
Я начиная от конца текста рассуждал.
Браун-альта,кларнет
Смит-флейта,гобой
Вессон-труба,скрипка
1.Запустить Power Point
2.Выбрать тему.
3.Кликнуть по "Создать"
4.В разделе "Главная" кликнуть по "Создать слайд" и выбрать сравнение.
5.В разделе "Файл" кликаем по "Сохранить как" и сохраняем.