Question

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

 

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

 

Input

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

 

Output

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

“First number is maximal”

“Second number is maximal”

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

100204ecba146ef099d7db407a5846fa.doc

Answer 1

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. В скобках номер числа

Answer 2

Там идет считывание, я его вывел при условии, что пишется в строку программы. Но я чуть ошибся, не доглядел, что Таям может отсутствовать С.

Answer 3

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.

Answer 4

Илья Черезов,красава! Я тоже с тебя спишу) 

Answer 5

Эххх... Скука, а я уж понадеялся чем-нибудь полезным заняться...