Napisz program w Paccalu który pobiera od użytkownika pare liczb do momentu aż pierwsza liczba będzie większa od drugiej.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
program xxx;
uses crt;
var a,b:integer;
begin
repeat
clrscr;
writeln('Podaj liczbe 1: ');
readln(a);
writeln('Podaj liczbe 2: ');
readln(b);
until a>b;
writeln('1 Liczba jest wieksza, koniec programu.')
end.