Program v1; var a,b,c: real; begin readln (a,b,c); If c > a+b then writeln ( 'Такого треугольника не существует'); If a > c+b then writeln ( 'Такого треугольника не существует'); If b> a+c then writeln ( 'Такого треугольника не существует'); If a=b and a=c then writeln ('Этот треугольник равносторонний'); If a=b or a=c or b=c then writeln ('Этот треугольник равнобедренный'); If a = scrt ( b*b + c*c) then writeln ('Этот треугольник прямоугольный'); If b = scrt (a*a + c*c) then writeln ('Этот треугольник прямоугольный'); If c = scrt (a*a + b*b) then writeln ('Этот треугольник прямоугольный'); end.
Var max1,max2,min1,min2,i:integer; ar:array[1..n] of integer; begin max1:=integer.MinValue; max2:=integer.MinValue; min1:=integer.MaxValue; min2:=integer.MaxValue; for i:=1 to n do begin readln(ar[i]); if (ar[i]<max1) and (ar[i]>max2) then max2:=ar[i] else if ar[i]>max1 then begin max2:=max1; max1:=ar[i]; end; if (ar[i]>min1) and (ar[i]<min2) then min2:=ar[i] else if ar[i]<min1 then begin max2:=max1; min1:=ar[i]; end; end; writeln('Сумма максимумов:',max1+max2); writeln('Cумма минимумов:',min1+min2); end.
Пример ввода: 1 2 3 4 5 Пример вывода: Сумма максимумов:9 Cумма минимумов:3
n,S:integer;
Begin
S:=0;
Write('n = ');ReadLn(n);
repeat
n:=n div 10;
S:=S+n mod 10;
until n = 0;
WriteLn(S)
End.