Var
s: string;
rus, eng, cif: set of char;
i, r, e, c: integer;
begin
rus := ['Ё', 'ё', 'А'..'Я', 'а'..'я'];
eng := ['A'..'Z', 'a'..'z'];
cif := ['0'..'9'];
write('Введите текст: ');
readln(s);
for i := 1 to length(s) do
begin
if s[i] in rus then inc(r);
if s[i] in eng then inc(e);
if s[i] in cif then inc(c)
end;
writeln('Русских букв: ', r);
writeln('Английских букв: ', e);
writeln('Цифр: ', c)
end.
В одной строке 8775/30/6=48,75 бай или *8 бит
<span>один символ это 6 бит итого в строке 8*48,75/6=65 символов</span>
ппппппненапишу
ттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттттееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееббббббббббббббббббббббббббббббббббббббббббббббббббббббббббееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее
Program n1;
var a: real;
begin
readln(a);
if a>0 then write('число больше ноля') else if a<0 then write('число меньше ноля') else write('вы ввели ноль');
end.
#include <iostream>
#include <math.h>
using namespace std;
int main(){
double f, k, m;
cin>>k>>m;
if (m>0) f=k+sqrt(m);
else f=k/m+2;
cout<<f;
}
(тут у вас не совсем понятно про else. Если в знаменателе дроби находится только m, то берите эту программу, иначе (если (m+2)) просто m+2 возьмите в скобки)