Составить программу для вычисления гипотенузы и площади прямоугольного треугольника, если заданы его катеты

264

335

Посмотреть ответы 2

Ответы на вопрос:

SASHEKA

Информатика

4,8(7 оценок)

Program n1; uses crt; var a,b,c,gip: real; function s(x,y: real): real; begin s: =x*y/2; end; function g(x,y: real): real; begin g: =sqrt(sqr(x)+sqr(y)) end; begin writeln('vvedite katety'); readln(a,b); c: =s(a,b); gip: =g(a,b); writeln('ploshad = ',c: 3: 2); writeln('gipotenuza = ',gip: 3: 2); readln end.

krohaela

Информатика

4,5(32 оценок)

900

Объяснение:

Для решения была использована программа на Паскале, которая будет ниже. Её суть заключается в переборе чисел от 1000 до 9999. с операции mod ищется остаток от деления на 10(т.е крайняя цифра), с операции div при делении на 1000 берёт первое число, и сравнивает их. Если цифры совпадают, она добавляет один в "общую копилку", т.е счётчик. В результате программа вывела 900.

program znania;

uses crt;

var a, b:Integer;

begin

for a := 1000 to 9999 do

begin

if (a mod 10)=(a div 1000) then

b:=b+1;

end;

writeln(b);

readln;

end.