Question

NAPISZ PROGRAM W PASCALU: "PROGRAM NA OBWÓD KWADRATU".

Answer 1

var
 a:longint;

begin
 write('Podaj dlugosc boku: ');
 readln(a);
 if a>0 then write('Obwod kwadratu wynosi: ',a*4)
        else write('Nie istnieje kwadrat o podanym boku');
 writeln;
 writeln;
 writeln('Nacisnij ENTER, by zakonczyc...');
 readln;
end.

Answer 2

//licze na naj...

 

 

program nazwa;
uses crt;
var
bok:double;

begin
clrscr;

writeln('Podaj dlugosc boku: ');
readln(bok);

writeln('Obwod kwadratu wynosi: ',4*bok:0:2);

readln;
end.