На скриншоте
=============
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
begin
inc(k);
if s[i]='a' then s[i]:='b'
else s[i]:='B';
end;
writeln(s);
write(k)
end.
Объяснение:
Основную часть экрана занимает рабочий стол
64 байта=512 бит
512/128=4 бита весит 1 символ
2 в четвертой степени=14. Значит в алфавите используется 16 символов
Ответ: 16
Надеюсь на лучший ответ
я не помню паскаль:(
Объяснение:
вводишь число a
через if проверяешь условие
if(a>7) то a:=a*10
else if (a<7) то а:=а+7