Сравнение 3х чисел

Посмотреть архив целиком
program chislo;

{$APPTYPE CONSOLE}

uses
SysUtils;
var a,b,c,d,e:integer;
begin
writeln('Vvedite 3 zelix chisla (cherez probel)');
readln(a,b,c);
d:=a+b;
e:=b+c;
writeln('zadannoe trexznachnoe chislo ',a,b,c);
writeln('Symma 2x pervix zifr ',d);
writeln('Symma 2x poslednix zifr ',e);
if a>b then
if a>c then writeln('naibolshee chislo ',a)
else writeln('naibolshee chislo ',c)
else
if b>c then writeln('naibolshee chislo ',b)
else writeln('naibolshee chislo ',c);
if a if a else writeln('naimenshee chislo ',c)
else
if b else writeln('naimenshee chislo ', c);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.