3 года назад

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

1 ответ:

0 0

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

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

Срочно!Напишите функцию в Паскале,которая "разворачивает" десятичную запись числа наоборот,например,из 123 получается 321,а из 3

MariamL

Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;

var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>

0 0

4 года назад

Составь свою последовательность из 8 нулей и единиц

timati1963 [57]

10,10,10,10,10,10,10,10,10

0 0

4 года назад

Составьте программу,которая заполняет массив b[1..15] случайными целыми числами в диапазоне от 1 до 20 и выводит тройки элементо

13voron37 [7]

//Это экспериментальное решение, не воспринимайте всерьёз
var ar:array[1..15] of integer;
i:integer;
begin;
var i1:=1;
while i1<=15 do
begin;
var ar1:=ArrRandomInteger(4,1,20);
sort(ar1);
ar[i1]:=ar1[1];
ar[i1+1]:=ar1[2];
ar[i1+2]:=ar1[3];
writeln(ar1[1]:4,ar1[2]:4,ar1[3]:4);
i1:=i1+3;
end;
writeln('Final array:');
for i:=1 to 15 do
write(ar[i]:4);
<span>end.</span>

0 0

4 года назад

98 БАЛЛОВ! Упростите логическое уравнение по информатике

Тимофей-Ок [31]

$\displaystyle 1)\quad \overline{\overline A \to (B \to \overline C))}=\overline {A+(\overline B+\overline C)}=\overline ABC\\ \\2)\quad \overline {(\overline A\to B)}\cdot\overline{(A\to B)}=\overline{A+B+\overline A+B}=\overline 1=0\\ \\3) \quad A+\overline{B\overline C}+\overline{A\to\overline{\overline BC}}=A+\overline B+C+\overline{\overline A+B+\overline C}=\\ \\A+\overline B+C+A\overline BC=A(1+\overline BC)+\overline B+C=A+\overline B+C$

0 0

4 года назад

Прочитать ещё 2 ответа

Задача по информатике составить программу и решить задачу с помощью паскаля помогите пожалуйста завтра зачет

KAM 1967 [84]

Var y:real; i:integer;
begin
y:=1;
for i:=1 to 52 do
y:=y*(i*i*i)/(i*i+1);
writeln('y = ',y);
end.

Результат:
y = 2.23632650309607E+67

0 0

4 года назад