1) Var n,m,max,min:integer; Begin write('Введите число: '); readln(n); min:=9; max:=0; while n>0 do begin m:=n mod 10; if m<min then min:=m; if m>max then max:=m; n:=n div 10; end; writeln('Максимальное число: ',max); writeln('Минимальное число: ',min); End. 2) var i,count: integer; n,s:string; begin writeln('Введите число: '); readln(s); writeln('Введите цифру: '); readln(n); for i:=1 to length(s) do if(s[i]=n)then count:=count+1; writeln('Количество раз, когда встречается цифра = ',count); end.
#include <iostream> using namespace std; int main() { setlocale(0,""); int p; int n; int kol=0; cout<<"введите число p которое проверяется"; cin>>p; cout<<"введите число n первых нечётных чисел "; cin>>n; for (int i=1;i<=n*2;i++) { for (int j=1;j<=n*2;j++) { if ( ((i%2)==1) && ((j%2)==1) ) n2++; if ( ((i%2)==1) && ((j%2)==1) && ((i*j)==p) ) kol++; } } cout<<"количество "<<n<<" первых нечётных чисел кратных "<<p<<" = "<<kol; return 0; }
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
using namespace std;
int main()
{
setlocale(0,"");
int p;
int n;
int kol=0;
cout<<"введите число p которое проверяется";
cin>>p;
cout<<"введите число n первых нечётных чисел ";
cin>>n;
for (int i=1;i<=n*2;i++)
{
for (int j=1;j<=n*2;j++)
{
if ( ((i%2)==1) && ((j%2)==1) ) n2++;
if ( ((i%2)==1) && ((j%2)==1) && ((i*j)==p) ) kol++;
}
}
cout<<"количество "<<n<<" первых нечётных чисел кратных "<<p<<" = "<<kol;
return 0;
}