Есть много разных способов решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n=123432
<span>Да
Вот ещё вариант:
var n,m,n1,m1,b:integer;
begin
write('n='); readln(n);
b:=0;
while n>0 do
begin
m:=n mod 10;
n:=n div 10;
n1:=n;
while n1>0 do
begin
m1:=n1 mod 10;
if m=m1 then b:=1;
n1:=n1 div 10;
end;
end;
if b=1 then writeln('Да') else writeln('Нет');
end.</span>
<span>#include <iostream>
using namespace std;
int main() {
double a,b,c,d;
cout << "Параметры ямы: ";
cin >> a >> b >> c;
cout << "Объем воды: ";
cin >> d;
if (a*b*c>=d) cout << "YES";
else cout << "NO";
return 0;
<span>}
Пример:
</span><span>Параметры ямы: 2 1.8 0.4
Объем воды: 3.2
NO</span></span>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
m,n:integer;
begin
Write('Введите М и N: '); Read(m,n);
if m<>n then begin m:=0; n:=1 end
else begin m:=2*m; n:=2*n end;
Writeln('m=',m,', n=',n)
end.
<u><em>Тестовые решения:</em></u>
Введите М и N: 5 7
m=0, n=1
Введите М и N: 4 4
m=8, n=8
#include <bits/stdc++.h>
using namespace std;
int main() {
int x, y;
cin >> x;
while (true) {
cin >> y;
if (y == -1) break;
if (y >= x) {
cout << "NO" << endl;
return 0;
}
x = y;
}
cout << "YES" << endl;
return 0;
}
