Скриншоты

Просмотров: 146412

Общий вид

Окно вывода Сообщения об ошибках Запуск нескольких приложений одновременно Отладчик

Средства Intellisense

Подсказка по точке Подсказка по параметрам Всплывающая подсказка по имени Создание подсказки по имени

Проверяемые задания

Создание шаблона задания Решение задач для электронного задачника Решение задач для исполнителя Робот Решение задач для исполнителя Чертежник

Новости

Случайная программа

// Корни квадратного уравнения
// Уровень сложности: 0
var a,b,c: real;
    x1,x2: real;
    
begin
  readln(a,b,c);
  
  var D := b*b - 4*a*c;
  if D<0 then
    writeln('Корней нет')
  else if D=0 then
  begin
    x1 := -b/2/a;
    writeln('x1=x2=',x1);
  end
  else
  begin
    x1 := (-b-sqrt(D))/2/a;
    x2 := (-b+sqrt(D))/2/a;
    writeln('x1=',x1,' x2=',x2);
  end;
end.