Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
begin
y:=x mod 10;
z:=x div 10;
while z>0 do
begin
if (z mod 10)=y then f:=1;
z:=z div 10;
end;
x:=x div 10;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
<span>end.
Если использовать строковые ф-ии, то программа будет проще:
var
i,k,f:integer;
s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
begin
t:=copy(s,i+1,k-i+1);
if pos(s[i],t)>=1 then f:=1;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
end.</span>
Var
A:array[1..30] of integer;
N,k,i:byte;
Min,Max:integer;
Begin
ReadLn(N);
k:=0;
For i:= 1 to N do
Begin
Read(A[i]);
if A[i]<= 30 then k:=k+1
End;
Max:=A[1];
Min:=A[1];
For i:= 2 to N do
Begin
if A[i]>Max then Max:=A[i];
if A[i]<Min then Min:=A[i];
End;
WriteLn(Max-Min,' ',k);
End.
C++
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian"); // Добавление русского языка
int N;
int *A, *B;
int sub = 0, mult = 1;
cout << "Введите размерность массивов: ";
cin >> N;
A = new int[N];
B = new int[N];
cout << "Инициализация массива A (введите " << N << " элементов): ";
for (int i = 0; i < N; i++)
{
cin >> A[i];
}
cout << "Инициализация массива B (введите " << N << " элементов): ";
for (int i = 0; i < N; i++)
{
cin >> B[i];
}
// Подсчет суммы и произведения всех элементов массива
for (int i = 0; i < N; i++)
{
sub = sub + A[i] + B[i];
mult = mult*A[i] * B[i];
}
cout << "Сумма всех элементов массивов: " << sub << endl;
cout << "Произведение всех элементов массивов: " << mult << endl;
return 0;
}
Упрощенное обнаружение документов, содержащих макросы. Файлы, сохраненные с использованием стандартного суффикса «X» (такие как DOCX, XLSX и PPTX), не могут содержать макросы VBA и XLM. Макросы могут содержать только те файлы, расширение имени которых заканчивается на «M» (такие как DOCM, XLSM и PPTM).
Проще говоря: <span> Суффикс «X» означает, что XML-файл не содержит макросов, а суффикс «M» — что XML-файл содержит макросы. </span>
