Topics

Zdravim 

Opat by som potrebovala pomoc pri rieseni zadania:
                               

" Zostavte program pre nacitanie cisel, ak posledne cislo na vstupe je K. Stanovte pocet nacitanych hodnot, ich sucet a priemer.

... ide o program v Pascale a algoritmus !

Dakujem krasne 

Vedel by to niekto skontrolovat?
* Zostavte program pre výpočet strany a v pravouhlom trojuholníku, ak strany b a c sú zadané. *

program ZADANIE c1;
var
   b,c : real;
   a : real;
begin
   write ('Zadaj stranu b');
   readln (b);
   begin
      if (b>0) then
      write('Zadaj stranu c');
      readln (c);
      else
   begin
      if (c>0) then
      a:= sqrt (c*c-b*b);
      writeln ('velkost strany a v pravouhlom trojuholniku je ',a:5:2);
   readln;
end.



ALEBO ?!


program ZADANIE c1;
var
   b,c : real;
   a : real;
begin
   write ('Zadaj stranu b');
   readln (b);
   if (b>0) then
begin   
   writeln('Zadaj stranu c');
   readln (c);     
   if (c>0) then
begin
   a:= sqrt (c*c-b*b);
   writeln ('velkost strany a v pravouhlom trojuholniku je ',a:5:2);
   readln;
end.


... dakujem