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

Question

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



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



Input

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



Output

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

“First number is maximal”

“Second number is maximal”

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

---

Скачать вложение Word (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. В скобках номер числа

Comments

в теле этого цикла нельзя менять условие ,то есть 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<br>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 2

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

Comments

А куда вы олимпиаду пишите?:3

---

Это не олимпиада ,это ДЗ на сайте ижевского универа

---

Но там жесть ,все пишет что неправильно

---

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

---

А зачем вы оттуда дз берете?

---

Не знаю,учитель решила