Question

Napisz program w Paccalu który pobiera od użytkownika pare liczb do momentu aż pierwsza liczba będzie większa od drugiej

Answer 1

program para;

uses crt;

integer: l1,l2;

 

Begin;

repeat;

write('Podaj pierwsza liczbe: ');

read(l1);

write('Podaj drugą liczbę: ');

read(l2);

until(l1>l2);

clrscr;

write('Podane liczby to: ',l1,', oraz ',l2);

End.

Answer 2

program liczby;
uses CRT;
var
a,b: integer;
begin
clrscr;
repeat
Writeln('Podaj 1 liczbe: ');
readln(a);
Writeln('Podaj 2 liczbe: ');
readln(b);
Writeln;
until b<a;
Writeln('1wsza liczba jest wieksza od 2giej! Program konczy dzialanie!');
readln;
end.