// PascalABC.NET 3.2, сборка 1403 от 16.03.2017 // Внимание! Если программа не работает, обновите версию!
function SumDigits(n:integer):integer; begin Result:=0; while n>0 do begin Result+=n mod 10; n:=n div 10 end end;
begin var s:=ReadArrInteger('Вводите:',3).Select(x->SumDigits(x)).ToArray; var i:=s.IndexMax; var k:=s.Where(x->x=s[i]).Count; case k of 1:begin Write('Сумма цифр наибольшая у '); case i of 0:Write('первого'); 1:Write('второго'); 2:Write('третьего'); end; Writeln(' числа') end; 2:begin Write('Сумма цифр наибольшая у '); if s[0]=s[1] then Writeln('первого и второго чисел') else if s[0]=s[2] then Writeln('первого и третьего чисел') else Writeln('второго и третьего чисел') end; 3:Writeln('Суммы цифр у всех трех чисел равны') end end.
Примеры Вводите: 102030 324 19 Сумма цифр наибольшая у третьего числа
Вводите: 16453 4320 56341 Сумма цифр наибольшая у первого и третьего чисел
Вводите: 12345 12354 54321 Суммы цифр у всех трех чисел равны
Const n=10; var xy:array[1..2*n] of real; Lmax,L:real; i,imax:integer; begin Randomize; Writeln('Координаты точек'); Lmax:=0; for i:=1 to n do begin xy[2*i-1]:=101*Random-50; { случайное число на [-50..50] } Write(i:2,xy[2*i-1]:8:3); xy[2*i]:=101*Random-50; Writeln(xy[2*i]:8:3); L:=sqr(xy[2*i-1])+sqr(xy[2*i]); if Lmax<L then begin Lmax:=L; imax:=i end end; Writeln('Наиболее удалена от начала координат'); Writeln('точка A[',imax,'] (',xy[2*imax-1]:0:3,',',xy[2*imax]:0:3,'),'); Writeln('расстояние составляет ',sqrt(Lmax):0:3) end.
Тестовое решение: Координаты точек 1 -7.758 -12.799 2 14.569 -5.722 3 -20.827 2.768 4 16.387 35.180 5 43.135 -17.903 6 42.006 11.257 7 40.026 -4.777 8 -32.236 33.900 9 -13.453 45.271 10 8.171 7.245 Наиболее удалена от начала координат точка A[9] (-13.453,45.271), расстояние составляет 47.227
Объяснение:
#include<stdio.h>
#include<locale.h>
#include<stdlib.h>
main()
{
setlocale(LC_ALL,"RUS");
int x[15][15],i,j,n,kol=0;
printf("Введите кол-во строк и столбцов");
scanf("%d",&n);
for(i=0;i<n;i++)
for(j=0;j<n;j++)
{
printf("Введите число %d cтроки %d столбца ",i+1,j+1);
scanf(" %d",&x[i][j]);
}
system("cls");
printf("Матрица ");
for(i=0;i<n;i++)
{
printf("\n");
for(j=0;j<n;j++)
{
if(x[i][j]%5==1) kol++;
printf("%d ",x[i][j]);
}
}
printf("\nКоличество элементов матрицы которые делятся на 5 с остатком 1 = %d",kol);
}