Регистрация
юля15102
06.06.2023 12:22
Информатика
Есть ответ 👍

Впрямоугольном треугольнике известны катет и гипотенуза. найдите другой катет. решить программным способом

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

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

Титанэжжжжж
Титанэжжжжж
4,4(79 оценок)
Var a,b,c: real; begin write('катет и гипотенуза: '); readln(a,c); b: =sqrt(abs(c*c-a*a)); writeln('b = ',b); end. пример: катет и гипотенуза: 3 5 b = 4
antstuart
antstuart
4,7(5 оценок)
Pascalabc.net 3.4.2, сборка 1857 от 05.11.2018 внимание! если программа не работает, обновите версию!

begin

  var былчет : = false;

  var число: integer;

  var счетчик : = 0;

  while true do

  begin

    read(число);

    if число = 0 then break;

    var введенонечетное : = число.isodd;

    if былчет and введенонечетное then inc(счетчик);

    былчет : = not введенонечетное

  end;

  println(счетчик)

end.

пример

-27 42 -19 -2 -42 12 45 39 -27 29 3 -17 -14 -25 -26 41 21 -13 -6 0

4

Популярно: Информатика