Тогда небольшая просьба к пользователям сети Сумы-ONLINE:
когда в следущий раз (а тут ждать недолго) будете качать с скоростью 14-15мб/с, сделайте скрин и выложите сюда. А то всё равно не верится.
какие 10-15мб ??? Не несите бред. Пропускная способность канала - 12,5мб/с и выше этих 12.5мб/с вы качать никак не сможете...
Та и то, эти 12мб/с получите, если повезёт)
program massiv;
uses crt;
var a:array[1..6] of real;
s:real;
i:byte;
begin
clrscr; //очищаем экран
for i:=1 to 6 do // вводим элементы в массив
read(a[i]);
clrscr; //очищаем экран
write('Массив: ');
for i:=1 to 6 do //выводим массив на экран
write(a[i]:4:2,'...
"дозволяти казати один на одного все що завгодно"
ИМХО, можете за это даже не голосовать, все равно за маты будут банить... И тут уже не модераторы Политики решать будут..
в теме про паскаль эта задача уже решалась...
алгоритм:
1)вводим поочердно 3 стороны треугольника(большие от нуля(тут первый условный оператор))
2)треугольник существует, если выполняються одновременно 3 условия: a+b>c, a+c>b, b+c>a
3)если a=b=c, значит равносторонний. Выводим сообещние на...