var a,b,c:real;//описание переменных a,b,c вещественного типа
begin//начало тела программы
write ('a = ');//вывод на экран сообщения: а = для запроса у пользователя переменной а
readln (a);// ввод переменной a пользователем
write ('b = ');//вывод на экран сообщения: b = для запроса у пользователя переменной b
readln (b);// ввод переменной b пользователем
write ('c = ');//вывод на экран сообщения: b = для запроса у пользователя переменной c
readln (c);// ввод переменной c пользователем
if (a<=0) or (b<=0) or (c<=0) then write ('Такого треугольника не существует')//оператор ветвления 1 часть если условие верно, то программа выведет сообщение: Такого треугольника не существует
else write ('P = ',a+b+c)//оператор ветвления 2 часть если условие НЕ верно, то программа выведет периметр треугольника сообщением: Р = число
ответ:Компьютерные сети, называемые также вычислительными сетями, или сетями передачи данных это объединение автономных персональных компьютеров для совместного использования вычислительных ресурсов (процессора, памяти и периферии - например, дорогостоящего лазерного принтера). Компьютерную сеть в пределах сравнительно небольшой территории обычно называют локальной. Локальная сеть обычно организуется и работает в пределах одной фирмы (организации) и объединяет компьютеры на рабочих местах для более быстрого и качественного обмена информацией. Каждая организация, эксплуатирующая более десятка ПК, старается объединить их в локальную сеть c целью уменьшения бумажного документооборота и повышения эффективности своих подразделений. Естественно, что почти каждая такая сеть должна иметь выход на внешних заказчиков.
program z1;//заголовок - название программы
var a,b,c:real;//описание переменных a,b,c вещественного типа
begin//начало тела программы
write ('a = ');//вывод на экран сообщения: а = для запроса у пользователя переменной а
readln (a);// ввод переменной a пользователем
write ('b = ');//вывод на экран сообщения: b = для запроса у пользователя переменной b
readln (b);// ввод переменной b пользователем
write ('c = ');//вывод на экран сообщения: b = для запроса у пользователя переменной c
readln (c);// ввод переменной c пользователем
if (a<=0) or (b<=0) or (c<=0) then write ('Такого треугольника не существует')//оператор ветвления 1 часть если условие верно, то программа выведет сообщение: Такого треугольника не существует
else write ('P = ',a+b+c)//оператор ветвления 2 часть если условие НЕ верно, то программа выведет периметр треугольника сообщением: Р = число
end.//конец тела программы
ответ:Компьютерные сети, называемые также вычислительными сетями, или сетями передачи данных это объединение автономных персональных компьютеров для совместного использования вычислительных ресурсов (процессора, памяти и периферии - например, дорогостоящего лазерного принтера). Компьютерную сеть в пределах сравнительно небольшой территории обычно называют локальной. Локальная сеть обычно организуется и работает в пределах одной фирмы (организации) и объединяет компьютеры на рабочих местах для более быстрого и качественного обмена информацией. Каждая организация, эксплуатирующая более десятка ПК, старается объединить их в локальную сеть c целью уменьшения бумажного документооборота и повышения эффективности своих подразделений. Естественно, что почти каждая такая сеть должна иметь выход на внешних заказчиков.
Объяснение: