Question

Napisz program "porównanieliczb" porównujący dwie liczby a i b, wynik musi pokazywać, która liczba jest większa

Proszę o zrobienie w dev Pascalu?

PIERWIASTEK KWADRSTOWY LICZBY
- instrukcja warunkowa
Napisz program obliczający pierwiastek kwadratowy liczby dodatniej. Program musi informować, że wprowadziło się liczbę ujemną.

Proszę o zrobienia daje Najjj,

Bardzo proszę o zrobienie ?

Answer 1

program porownanie;

var a,b:integer;

begin

  write('Podaj liczbe a - ');

  readln(a);

  write('Podaj liczbe b - ');

  readln(b);

  if a>b then

    writeln('Liczba a jest większa')

  else

    writeln('Liczba b jest większa');

  readln;

end.

 

program pierwiastek;

var x,wynik:real;

begin

  write('Podaj liczbe z której chcesz obliczyć pierwiastek - ');

  readln(x);

  if x<0 then

    writeln('Liczba jest ujemna!')

  else

    begin

      wynik:=sqrt(x);

      writeln('Pierwiastek wynosi ',wynik:0:10);

    end;

  readln;

end.

 

o to Ci chodzilo?