program prim;
uses crt;
var
a,b,r: integer;
begin
clrscr;
writeln ('ввести два числа');
readln (a,b);
if a>b then
begin
r:=a-b;
end
else
begin
r:=b-a;
end;
writeln ('r=', r:5);
readkey;
end.
Var a,b,n:integer;
begin
readln(a);//начало интервала
readln(b);//конец интервала
readln(n);//число
if (k>=a) and (k<=b) then
writeln('пренадлежит')
else writeln('не пренадлежит')
end.
Найти K
i =
} [/tex]=
}[/tex]=
=6
8775 байт =70200 бит
K=
=
=11700
кол-во симв =11700:30:6=65
65 символов.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
setlocale(LC_ALL,"Russian");
cin >> n;
if ( n > 0 )
cout << "Положительное\n";
else
cout << "Отрицательное\n";
n = abs(n);
int ans = 0;
while (n)
{
n /= 10;
ans++;
}
cout << ans << " цифр\n";
}
1. d
2.d
P.s Пишу эти буквы для того чтобы пропустили ответ надо же 20 символов)