3 года назад

Составить алгоритм .Даны три положительных числа а,в,с. Проверить, могут ли быть они длинами сторон треугольника.

1 ответ:

0 0

1. Задать значения длин сторон треугольника a,b,c
2. Если (a+b>c) И (a+c>b) И (b+c>a), то треугольник построить можно,
иначе треугольник построить нельзя.
3. Конец алгоритма

Читайте также

Помогите нужно словарь ожогова именно 1988г и ответь на вопрос

Оксана LIVE [246]

У меня нет данного словаря. Но это легко.
Считаешь количество строк. Затем количество символов в строке (1 символ = 1 байт).
Перемножаешь.
Смотришь количество страниц.
Перемножаешь количество страниц на количество символов на странице (количество строк* количество символов в одной строке).
Получишь объем словаря в байтах.
Делишь на 1024 - в Кб
Делишь еще на 1024 - в Мб.

0 0

4 года назад

Помогите пожалуйста))(город на К)

SamaraMorgan

Краснодар, Красноярск, Калуга, Казань

0 0

4 года назад

Ребят пж Укажите вид ссылки: А1 относительная абсолютная смешанная ошибочная запись

елена-1988 [11]

Абсолютная ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

0 0

4 года назад

В школу пришло n первоклассников. Из них надо сформировать несколько классов. При этом требуется соблюсти следующие условия: в к

Маргарита1982 [45]

begin

var n := ReadInteger;

if n mod 25 = 0 then

Println(25, n div 25)

else

begin

var (n1, n2) := (24, 25);

var r: integer;

repeat

for var i := 1 to n div n1 do

begin

r := (n - n1 * i) mod n2;

if r = 0 then

begin

Println(n1, i + (n - n1 * i) div n2);

exit

end;

Dec(n1);

Dec(n2);

until n1 = 0;

end;

end.

===== PascalABC.NET =====

0 0

4 года назад

Написать программу нахождения количества чётных чисел в массиве случайных чисел

СергейВанин

//Pascal ABC.NET v3.0 сборка 1111

Const
n=5;

Var
ar:array[1..n] of integer;
i,k:integer;
begin;
randomize;
k:=0;
writeln('Array:');
for i:=1 to n do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if not odd(ar[i]) then inc(k);
end;
writeln;
write('Res=',k);
end.

0 0

4 года назад