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

pascal

Объяснение:

program triangle;

var

 a, b, c: real;

 p, s: real;

begin

 Write('Введите стороны треугольника >> ');

 ReadLn(a, b, c);

 if (a + b > c) and (a + c > b) and (b + c > a) and (a > 0) and (b > 0) and (c > 0) then

 begin

   p := (a + b + c) / 2;

   s := sqrt(p * (p - a) * (p - b) * (p - c));

   WriteLn('Полупериметр треугольника равен ',p);

   WriteLn('Площадь треугольника равна ',s);    

 end

 else

  WriteLn('Треугольник со сторонами ',a,', ',b,', ',c,' не существует!')

end.

наименьшее 4-х разрядное число в системе счисления с основанием 5 = 1000₅.

наибольшее 4-х разрядное число в системе счисления с основанием 5 = 4444₅.

переведем эти числа в десятичную систему счисления:

1000₅= 5³ = 125

4444₅ = (10000₅ - 1₅) = 5⁴ - 1 = 624

количество всех 4-х разрядных чисел в системе счисления с основанием 5 равно: 624 - 125 + 1 = 500

ответ. 500. 

грубо и сердито:

var c: longint;

begin

  read(c);

  c: =c mod 10;

  c: =sqr(c);

  writeln(c);

end.