Var a,i,s,max,amax:integer; function sum(n:integer):integer; var s:integer; begin s:=0; while n<>0 do begin s:=s+n mod 10; n:=n div 10; end; sum:=s; end; begin max:=0; for i:=1 to 8 do begin write('a = '); readln(a); s:=sum(a); if s>max then begin max:=s; amax:=a; end; end; writeln('В числе ',amax,' максимальная сумма цифр = ',max); end.
Пример: a = 405a = 120 a = 309 a = 671 a = 456 a = 215 a = 751 a =321 В числе 456 максимальная сумма цифр = 15
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,R:real; Write('Введите сторону квадрата, треугольника и радиус: '); Read(a,b,R); var s1:=a*a; var s2:=a*a*sqrt(3)/4; var s3:=pi*r*r; var mx:real; var s:string; if s1>s2 then begin mx:=s1; s:='квадрата' end else begin mx:=s2; s:='треугольника' end; if s3>mx then begin mx:=s3; s:='круга' end; Writeln('Максимальная площадь у ',s,' и она равна ',mx) end.
Пример Введите сторону квадрата, треугольника и радиус: 13.5 16.3 3.72 Максимальная площадь у квадрата и она равна 182.25
Var a,b,r,s1,s2,s3:real; begin writeln('a, b, r:'); readln(a,b,r); s1:=a*a; s2:=b*b*sqrt(3)/4; s3:=pi*r*r; writeln('s1 = ',s1:4:2,' s2 = ',s2:4:2,' s3 = ',s3:4:2); if (s1>s2)and(s1>s3) then writeln('Квадрат имеет максимальную площадь = ',s1:4:2) else if (s2>s1)and(s2>s3) then writeln('Треугольник имеет максимальную площадь = ',s2:4:2) else writeln('Круг имеет максимальную площадь = ',s3:4:2); end.
Пример: a, b, r: 5 8 3 s1 = 25.00 s2 = 27.71 s3 = 28.27 Круг имеет максимальную площадь = 28.27
function sum(n:integer):integer;
var s:integer;
begin
s:=0;
while n<>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
max:=0;
for i:=1 to 8 do
begin
write('a = ');
readln(a);
s:=sum(a);
if s>max then begin max:=s; amax:=a; end;
end;
writeln('В числе ',amax,' максимальная сумма цифр = ',max);
end.
Пример:
a = 405a = 120
a = 309
a = 671
a = 456
a = 215
a = 751
a =321
В числе 456 максимальная сумма цифр = 15