8 задач Pascal

Привет всем.
Требуется решить 9 задач по Паскалю, они не сложные, но я сам не смогу =)) выручайте=)

Задачи практически подобные. Прошу не решать сложными, нестандартными способами. Все они должны решиться быстро и просто. Готов отблагодарить $. О цене договоримся
Если не там создал тему, прошу не удалять, а перенести. Спасибо.
Так же буду признателен, если объясните, как решалась та или иная задача.
Всем спасибо за внимание.

 

Code:

program qq;
var a, b: integer;
begin
readln(a, b);
if a > b then writeln(a);
if b > a then writeln(b);
readln;
end.

lol.

Code:

program qq;
var a, b: integer;
begin
readln(a, b);
if a > b then writeln('1');
if b > a then writeln('2');
readln;
end.

Code:

program qq;
var a, b: integer;
begin
readln(a, b);
if a > b then writeln(a, ' ', b);
if b > a then writeln(b, ' ', a);
readln;
end.

они ж одинаковые все.

Code:

program qq;
var a, b, c: integer;
begin
readln(a, b);
c:=0;
if a > b then begin 
b:=c;
a:=b;
c:=a;
writeln(a, ' ', b);
end;
if b > a then writeln(a, ' ', b);
readln;
end.

Code:

program qq;
var a, b: integer;
begin
readln(a, b);

if a <> b then begin
a:=a+b;
b:=a+b;
end;

if b = a then begin
a:=0;
b:=0;
end;

writeln(a, ' ', b);
readln;
end.

Code:

program qq;
var a, b, c, min: integer;
begin
readln(a, b, c);

min:=a;
if b < a then min:=b;
if c < a then min:=c;
writeln(min);
readln;
end.

Code:

program qq;
var a, b, c: integer;
begin
readln(a, b, c);
if ((a>b) and (a<c)) or ((a>c) and (a<b)) then writeln(a);
if ((b>a) and (b<c)) or ((b>c) and (b<a)) then writeln(b);
if ((c>a) and (c<b)) or ((c<a) and (c>b)) then writeln(c);
end.

Code:

program qq;
var a, b, max: integer;
begin
readln(a, b);
max:=a;
if b>max then max:=b;
if a<>b then begin
a:=max;
b:=max;
end;
if a = b then begin
a:=0;
b:=0;
end;
writeln(a, ' ', b);
readln;
end.

 

faza02, мы в институте похожее вроде дела так, что a>=-1000) and (b<=1000) вот такое не писалось, а просто запускали программу, вводили числа, опять, так скажем, запускали, и получалось... Можно так? или вот так и будет?
и ещё, а что такое repeat? =)) у нас вроде без неё было

 

нет нет нет...по другому должно быть....

 

так там сказано что проверка нужна, ну я так и сделал, можешь убрать 4 и 6 строки.
как по-другому? не я у вас учусь.

 

это диапазон, от -1000 до 1000, вроде.

 

верно, но там запятая стоит же,

ну да по***, удали просто 4 и 6 строки.

 

и как будет?))
Ты прочти задания ещё раз, они разные.
Помоги со всеми плиз, я в долгу не останусь )

 

в код посмотри, ну, все я нормально написал

 

дак все так же вроде

 

так вот

Code:

program Project2;

{$APPTYPE CONSOLE}

var a,b:integer;
begin
writeln('vvedite a i b');
readln(a);
readln(b);

if (a>1000) or (a<-1000)
then begin
writeln('oshibka');
readln;
exit;
end;

if (b>1000)or(b<-1000) then
begin
writeln('oshibka');
readln;
exit;
end;

if a>b then
writeln(a);
if b>a then
writeln(b)
else
writeln('a=b');
readln;

end.

 

это в каком ВУЗе такие "головоломки" дают??

 

не важно.
DooD, спасибо за ваш вариант, но меня больше устраивает вариант faza02
faza02, огромное спасибо, гоу в личку за вознаграждением