program nahogdenie;
uses crt;
var a,b,c,s:real;
begin
clrscr;
write ('a=');
read (a);
write ('b=');
read (b);
write ('c=');
read (c);
if (a>b) and (a>c) then a:=s;
if (b>a) and (b>c) then b:=s;
if (c>a) and (c>b) then c:=s;
read (s);
write ('s=');
repeat until keypressed;
end.
Pascal: как выбрать большее (меньшее) число из 3-х...
Я в паскале вообще не разбираюсь, помогите мне составить её:
дано мне 3 числа: 37; -3; 0,1.
как найти самое большее и (в другой задаче) наименьшее из них.
а это, то что я составил, тока оно не работает:
Зараннее благодарен!!!!!!!
[COLOR=Red]Для оформления кода используй тэги [cоde] Текст Программы [/code]. [/COLOR]
дано мне 3 числа: 37; -3; 0,1.
как найти самое большее и (в другой задаче) наименьшее из них.
а это, то что я составил, тока оно не работает:
Код:
Зараннее благодарен!!!!!!!
[COLOR=Red]Для оформления кода используй тэги [cоde] Текст Программы [/code]. [/COLOR]
Код:
if (a>b) and (a>c) then s:=a;
if (b>a) and (b>c) then s:=b;
if (c>a) and (c>b) then s:=c;
if (b>a) and (b>c) then s:=b;
if (c>a) and (c>b) then s:=c;
Ты, видать, присваивание не совсем освоил... Видать на госслужбе не бывал:)
блин, не вьехал!!!!!!!!!!!!!!!:p
ещё вот это очеь странно:
нужно:
Код:
read (s);
write ('s=');
write ('s=');
нужно:
Код:
writeln('s=', s);
наконец то заработало!!!!!!!!!!!!!