PROGRAM LOL;
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then
write('в тексте больше букв')
else write('в тексте больше чисел');
<span>end.</span>
var
a, d, c, k: <em>real</em>;
begin
readln(a, d, c, k);
writeln((a - (d + 21) * 2) * (c - 7 * k));
end.
1.
n = int(input())
if n == 0:
print(0)
else:
a, b = 0, 1
for i in range(2, n + 1):
a, b = b, a + b
print(b)
2.
d = []
k = []
for i in range(10):
d.append(int(input()))
for i in range(len(d)):
if d[i] % 2 == 0:
if d[i] % 3 != 0:
k.append(d[i])
print(min(k))
30*70*5=10500 всего символов
2²=4
значит 2 бит занимает один символ
10500*2=<em>21000 бит </em>
//Dev-C++ 5.11
#include <iostream>
using namespace std;
int main(void)
{float a,b;
cin>>a>>b;
if(a==0 && b==0)
cout<<"No solve";
else
if (b==0)
cout<<"No solve";
else
if(a==0)
cout<<"(-infinity;+infinity)";
else
{if(b>0 && a>0) cout<<"(-infinity;"<<a/b<<")";
if(b<0 && a>0) cout<<"("<<a/b<<";+infinity)";
if(b>0 && a<0) cout<<"("<<a/b<<";+infinity)";
if(b<0 && a<0) cout<<"(-infinity;"<<a/b<<")";}
return 0;}
Пример ввода:
1
-7
Пример вывода:
(-0.142857;+infinity)