1.с клавиатуры вводится число от 1 до 999. напиши программу, которая выводит на экран количество разрядов в числе (1, 2 или 3).
2.с клавиатуры вводятся целые числа a, b и c — коэффициенты квадратного уравнения. напиши программу, которая решает квадратное уравнение и выводит корни x1 и x2 через пробел в порядке возрастания, если уравнение имеет два разных корня, корень х, если уравнение имеет два одинаковых корня, и строку "нет решений", если уравнение не имеет корней.
3.с клавиатуры вводятся целые числа x и y — координаты точки. напиши программу, которая выводит номер координатной четверти, в которой лежит точка с координатами (х; у).
shubina021
3
22.11.2019 15:31
4 
Популярные вопросы
- Вниже предложении из прочитанного текста пронумерованы все запятые. выпишите...
2 - Определить импульс фотона красного излучения, длина волны которого 720 нм....
2 - Диагональ осевого сечения цилиндра равна квадратному корню из 61 см а радиус...
1 - 6000 метров в минуту выразить в километрах час...
1 - От данных прилагательных образовать наречия....
3 - Решите уравнение: ( х+1)/5 + (х-1)/4 = 1...
1 - Составить рассказ о побеги жилина и кастылина из плена .кто из этих героев...
1 - Замечаю,лежат, стоят,молчат, указать признаки каждого слова как часть речи....
2 - Когда турит проехал 4/9 всего пути между двумя , то до половины пути ему...
3 - Вряду числе, записанных в порядке убывания пропущено одно число. подбери...
1
1)
var n,k: integer;
begin
readln(n);
if (n>0) and (n<10) then k:=1
else if (n>9) and (n<100) then k:=2
else k:=3;
write(k);
end.
2)
var a,b,c: integer;
D,x1,x2: real;
begin
readln(a,b,c);
D:=b*b-4*a*c;
if(D>0) then begin
x1:=((-1)*b+sqrt(D))/(2*a);
x2:=((-1)*b-sqrt(D))/(2*a);
write(x1,' ',x2);
end else if (D=0) then begin
x1:=(-1)*b/(2*a);
write(x1);
end else write('Нет решений');
end.
3)
var x,y: integer;
begin
readln(x,y);
if(x=0) or (y=0) then write('точка лежит на координатной оси')
else begin
if(x>0) then begin
if(y>0) then write('I')
else write('IV');
end else
if(y>0) then write('II')
else write('III');
end;
end.