1)
var a:array [1..100] of integer;
n,i:integer;
begin
for i:=10 to 99 do begin
a[i]:=i;
if (a[i] mod n=0) then writeln(a[i]);
end;
end.
2)
var a:array [1..100] of integer;
n,k,i,x,y,z: integer;
begin
readln(n,k);
for i:=n to k do begin
a[i]:=i;
x:=a[i] mod 10;
y:=a[i] div 10;
z:=y mod 10;
y:=y div 10;
if (x=y) or (x=z) or (y=z) then writeln(a[i]);
end;
end.
3)
var a,n,an,na: integer;
begin
readln(a,n);
if (a>0) and (b>0) then begin
an:=a*10+n;
na:=n*10+a else writeln('Введены неверные числа!');
end;
end.
using System;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
int matrixSize = 5;
int sum=0;
int[,] matrix = new int[matrixSize, matrixSize];
Random r = new Random();
for (int i = 0; i < matrixSize; i++)
for (int j = 0; j < matrixSize; j++)
{
matrix[i, j] = r.Next(5) - 2;
if (matrix[i, j] % 2 != 0) sum += matrix[i, j];
}
for (int i = 0; i < matrixSize; i++)
{
for (int j = 0; j < matrixSize; j++)
Console.Write(matrix[i,j]+" ");
Console.WriteLine();
}
Console.WriteLine("Сумма нечетных элементов матрицы равна " + sum);
}
}
}
