Zistenie, či dané čísla môžu byť stranami trojuholníka

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu

Zrobil: Pheo
web: pascalsource.ic.cz

Program: Strany.pas
Subor exe: Strany.exe

Zistenie, či dané čísla môžu byť stranami trojuholníka.
{ STRANY.PAS                                     Copyright (c) Pheo }
{ Zistenie, či dané čísla môžu by stranami trojuholníka.           }
{                                                                   }
{ Datum:25.04.2005                             http://www.trsek.com }
 
program  strany;
var a,b,c:integer;
 
begin
  writeln;
  writeln('Zadaj  a,b,c');
  readln(a,b,c);
  if(a+b>c) and (b+c>a) and (c+a>b) then writeln
    ('Cisla mozu tvorit strany trojuholnika')
  else writeln
    (' cisla nemozu tvorit strany trojuholnika');
  readln;
end.