Максимум из
3-х чисел



Даны 3 целых различных числа. Нужно определить, которое
из них самое большое.




Input

Со стандартного устройства ввода
вводится через пробел 3 целых числа, не превосходящих по модулю 10000.



Output

Нужно выдать на стандартное
устройство вывода через пробел ответ в следующем формате:

“First number is maximal”

“Second number is maximal”

“Third number is maximal”
В циклах с пред и пост условием или цикл с параметром

2

Ответы и объяснения

2013-11-14T16:28:08+00:00
Var
a,b,i,c:integer;
begin 
read(a);
read(b);
read(c);
for i:=0 to 1 do begin
I:=1;
if a>b then
if a>c then writeln(1) else writeln(3)
else if b>c then writeln(2) else writeln(3); end;
end.
P.S. В скобках номер числа
в теле этого цикла нельзя менять условие ,то есть var менять нельзя
Там идет считывание, я его вывел при условии, что пишется в строку программы. Но я чуть ошибся, не доглядел, что Таям может отсутствовать С.
Var
a,b,i,c:integer;
begin
read(a);
read(b);
C:=10001
Read(c);
for i:=0 to 1 do begin
I:=1;
If c<10001 then
if a>b then
if a>c then writeln(1) else writeln(3)
else if b>c then writeln(2) else writeln(3)
Else
If a>b then writeln(1) else writeln(2); end;
end.
2013-11-14T16:34:08+00:00
Илья Черезов,красава! Я тоже с тебя спишу) 
Это не олимпиада ,это ДЗ на сайте ижевского универа
Но там жесть ,все пишет что неправильно
Эххх... Скука, а я уж понадеялся чем-нибудь полезным заняться...
А зачем вы оттуда дз берете?
Не знаю,учитель решила