Program ZZZ;
var a, b, c : integer ;
begin
WRITELN ('Введите значения коэффициентов квадратного трехчлена a,b,c');
readln (a,b,c);
D:= b*b - 4*a*c;
WRITELN ('Дискриминант квадратного трехчлена равен ',D);
end.

0 0

4 года назад

Друзья помогите! - Какие свойства имеет графичный объект в презентации? А высота Б цвет В дизайн Г форма рамки - WordArt – это

Lukee

1.Б - <span>цвет
</span>2.Г - <span>декоративная отделка(текст)</span>

0 0

4 года назад

В системе счесления с основанием 5 запишите число 1000

Sofya991

1000/5=200, остаток=0
200/5=40, остаток=0
40/5=8 остаток=0
8/5=1 остаток=3
1/5<1-больше не делим
Ответ записываем в обратном порядке, начиная с последнего
1000=13000(5)

0 0

3 года назад

Даны катеты прямоугольного треугольника. Найти его гипотенузу. Составить программу.

petrG [300]

Var a,b:real; begin write('Введите катеты: '); read(a,b); writeln; write('Гипотенуза = ',sqrt(sqr(a)+sqr(b)):0:2); end.

0 0

4 года назад

F(1) = 9F(n) = F(n–1) * n, при n >1. Чему равно зна­че­ние функ­ции F(2)?

F(1) = 9F(n) = F(n–1) * n, при n >1. Чему равно значение функции F(2)?