Регистрация
ПомидоркаЛ
12.12.2021 06:55
Информатика
Есть ответ 👍

Решите в pascal это уравнение

162
329
Посмотреть ответы 2

Ответы на вопрос:

хочусдохнуть
хочусдохнуть
4,6(80 оценок)

program dy;

var x,b,a,c: integer;

uses crt;

begin

clrscr;

writeln('введи число, потом второе, потом третье');

readln(b,a,c);

if (b> 0) and (a> 0) and (c> 0)

then writeln('решение есть х= ', ((-b+b*b-4*a*c)/2*a))

else writeln('решения нет')

end.

Unknown2281
Unknown2281
4,4(3 оценок)

1) Выделить папку;

2) Нажать правой кнопкой мыши;

3) "Добавить в архив";

4) Введите имя и параметры архива;

5) Нажмите кнопку "ОК".

Популярно: Информатика