• 
  • 22 May 2012
  Английский язык
  • Автор: ВиККуля

  

  Даны числа a,b,c. Составить программу, выводящую на экран сообщение, в зависимости от того какой треугольник можно построить с такими длина сторон: равносторонний,равнобедренный или какой либо другой.

  Вот ещё одна

  Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.

  Пожалуйста ребят.

• 
  • 22 May 2012
  • Ответ оставил: Irian83

  Первая

  Program n1;
  Uses CRT;
  Var a,b,c,k: integer;
  begin
  Writeln('Vvedite a,b,c');
  Readln(a,b,c);
  If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else
  If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;
  If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a))
  then begin k:=1; writeln('Pryamoygolnij'); end;
  If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;
  If k=0 then writeln('Treygolnik Raznostoronnij');
  readln
  end.

   

   

  Вторая 

  Program n1;
  Uses CRT;
  Var a,b,c: integer;
  begin
  ClrScr;
  Writeln('Vvedite a,b,c');
  Readln(a,b,c);
  If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));
  If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);
  readln
  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (06.10.2024) наш сайт содержит 244792 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы