
28.12.2009, 21:21
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме: 1313455
Репутация:
249
|
|
Код:
program three_digit;
var
pervoe_chislo,vtoroe_chislo,tretie_chislo:integer;
begin
pervoe_chislo:=5;
vtoroe_chislo:=4;
tretie_chislo:=3;
writeln('zadanie 1');
write('naimenshee chislo = ');
if (pervoe_chislo<vtoroe_chislo) and (pervoe_chislo<tretie_chislo) then
write(pervoe_chislo)
else
if (vtoroe_chislo<pervoe_chislo) and (vtoroe_chislo<tretie_chislo) then
write(vtoroe_chislo) else write(tretie_chislo);
readln;
pervoe_chislo:=5;
vtoroe_chislo:=4;
writeln('zadanie 2');
if (pervoe_chislo>vtoroe_chislo) then writeln(pervoe_chislo) else writeln(vtoroe_chislo);
readln;
end.
Результат работы:
Код:
pervoe_chislo=5;
vtoroe_chislo=4;
tretie_chislo=3;
zadanie 1
naimenshee chislo = 3
pervoe_chislo=5;
vtoroe_chislo=4;
zadanie 2
5
pervoe_chislo=5;
vtoroe_chislo=2;
tretie_chislo=3;
zadanie 1
naimenshee chislo = 2
pervoe_chislo=2;
vtoroe_chislo=4;
zadanie 2
4
pervoe_chislo=5;
vtoroe_chislo=2;
tretie_chislo=1;
zadanie 1
naimenshee chislo = 1
pervoe_chislo=3;
vtoroe_chislo=4;
zadanie 2
4
|
|
|