Pascalabc решить, . составьте программу подсчета площади равнобедренного треугольника. если площадь треугольника четная, разделить ее на 2, в противном случае вывести сообщение "не могу делить на 2! "

8, 1, 4, 1, 5, 9, 6, 7, 2

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

program summa;

uses crt;

var  i : integer; sum: real; beginsum: =0; for i: =1 to 20 do beginsum: =sum+ sqr(i); end; writeln('summa =', sum); end.

вот тебе программа на паскале . она находит сумму квадратов всех натуральных чисел от 1 до 20. вот блок схема. блок схему скину на мыло. напиши мне его и я тебе скину

сетевые устройства наверное, если по минимуму