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('Нет одинаковых цифр') 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.
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
for(i=10; i<=30; i++)
{
sum+=i;
cout<<sum<<endl;
}
return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
i=10;
sum=0;
while(i<=30)
{
sum+=i;
cout<<sum<<endl;
i++;
}
return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,sum;
int main()
{
i=10;
sum=0;
do
{
sum+=i;
cout<<sum<<endl;
i++;
}
while(i<=30);
return 0;
}
№2
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
cin>>a;
for(i=1; i<=10; i++)
{
cin>>b;
if(b==a) k++;
}
cout<<k;
return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
i=1;
cin>>a;
while(i<=10)
{
cin>>b;
if(b==a) k++;
i++;
}
cout<<k;
return 0;
}
#include<iostream>
#include<math.h>
using namespace std;
long i,a,b,k;
int main()
{
i=1;
cin>>a;
do
{
cin>>b;
if(b==a) k++;
i++;
}
while(i<=10);
cout<<k;
return 0;
}
№3
#include<iostream>
#include<math.h>
using namespace std;
long a,b,k;
int main()
{
cin>>a>>b;
k=a*a+abs(b)+5*a-10*b;
cout<<k;
return 0;
}
№4
#include<iostream>
#include<math.h>
using namespace std;
long a,b,k;
int main()
{
cin>>a;
if(a>=0) a++;
else a-=2;
return 0;
}
№5
#include<iostream>
#include<math.h>
using namespace std;
double i,u;
int main()
{
for(i=0; i<=10; i+=0.3)
{
u=i+1;
cout<<u<<endl;
}
return 0;
}