Uses Crt; Var A,B:integer; P:real; C:boolean; Begin ClrScr; Write('Введите натуральное число: ');ReadLn(B); Write('A = ');ReadLn(A); P:=1; C:=false; B:=Abs(B); While B>0 do Begin P:=P*(B mod 10); if B mod 10 = A then C:=true; B:=B div 10 End; WriteLn('P = ',P); if C then WriteLn('Не верно') else WriteLn('Верно'); ReadLn End.
uses Crt; Var A:integer; Begin ClrScr; For A:= 100 to 999 do if ((A+1) mod 2 = 0)and((A+2) mod 3 = 0)and((A+3) mod 4 = 0)and((A+4) mod 5 = 0) then Write(A,' '); ReadLn; End.
uses Crt; Var A,B,C:integer; Begin ClrScr; Write('Введите натуральное число: ');ReadLn(B); Write('A = ');ReadLn(A); C:=0; While B<>0 do Begin if B mod 10 <> A then C:=C*10+B mod 10; B:=B div 10; End; While C<>0 do Begin B:=B*10+C mod 10; C:=C div 10 End; WriteLn(B); ReadLn; End.
#include <iostream>
#include <time.h>
using namespace std;
int main()
{
srand(time(0));
int a, b;
int min = 100, posI, posJ;
cin >> a >> b;
int** matrix = new int*[a];
for (int i = 0; i < a; i++)
matrix[i] = new int[b];
for (int i = 0; i < a; i++)
{
for (int j = 0; j < b; j++)
matrix[i][j] = rand() % min;
}
for (int i = 0; i < a; i++)
{
for (int j = 0; j < b; j++)
cout << matrix[i][j] << '\t';
cout << endl;
}
for (int i = 0; i < a; i++)
{
for (int j = 0; j < b; j++)
if (matrix[i][j] < min)
{
posI = i;
posJ = j;
min = matrix[i][j];
}
}
matrix[posI][posJ] = matrix[0][0];
matrix[0][0] = min;
cout << endl;
for (int i = 0; i < a; i++)
{
for (int j = 0; j < b; j++)
cout << matrix[i][j] << '\t';
cout << endl;
}
for (int i = 0; i < a; i++)
delete[] matrix[i];
delete[] matrix;
system("pause");
return 0;
}