Первое и третье, все остальное бесконечно
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int main()
{
int i,j,n,sum,a[30][30];
printf("n=");
srand(time(NULL));
scanf("%d",&n);
printf("Matrix:\n");
sum = 0;
for (i = 1; i <= n; i++)
{
for (j = 1; j<=n; j++)
{
a[i][j]=1+rand()%9;
printf("%d ",a[i][j]);
}
printf("\n");
}
printf("\n");
for (i=2;i<=n-1;i++)
{
for(j=1;j<=2*i-1;j++)
if(i!=j)
sum+=a[i*2-j][j];
a[i][i]=sum;
sum=0;
}
printf("Output matrix:\n");
for (i = 1; i <= n; i++)
{
for (j = 1; j <= n; j++)
printf("%d ", a[i][j]);
printf("\n");
}
return 0;
}
//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека
Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.