Techvortal

Kod: Zaznacz cały

Program max ;
var
x,y,z:integer;
begin
writeln (\'Program wyszukiwania największej wartości\');
writeln (\'Podaj 3 liczby całkowite\');
readln (x,y,z);
if (x>=y) and (x>=z) then
write (\'Największa wartość to    \'   ,x)
else
if y>=z then
write (\'Największa wartość to    \', y)
else
write (\'Największa wartość to    \',z);
end.

Kod: Zaznacz cały

program trojkat;
var
a,b,c,p,s:real;
begin
writeln (\'Podaj boki trójkąta\');
readln (a,b,c);
if (a>=b+c) or (b>=a+c) or (c>=a+b) then
write (\'To nie są boki trójkąta\')
else
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write (\'Pole trójkąta=  \', S:5:2);
end;
end.