var
tmp, sum : integer;
begin
sum := 0;
while not eoln do
begin
read (tmp);
if (tmp >= 10) and (tmp <= 15) then
sum := sum + tmp;
end;
writeln (sum);
end.
1)128=2**7=>7глубина цвета
200*110*7=19250 байт
2)1000*862=107750 байт
Объем сообщения равен 11 Кбайт.сообщение содержит 11264 символов.Какова мощность алфавита?
Ответ: 256
Решение:
дано;
Y = 11 Кбайт
K = 11 264 Символов
Найти: N
1) N = 2i
2) Y = k * i , i = Y / k
Переведем 11 Кбайт в биты, и подставим в формулу:
11 * 1024 * 8 = 90 112 бит
3) 90 112 = 11 264 * i
i = 90 112 / 11 264
i = 8 бит
4) N = 2i
N = 28
N = 256
Program pr;
uses crt;
Var a,b,c,d:real;
Begin
Writeln('vv 4 chisla');
readln(a);
readln(b);
readln(c);
readln(d);
if (a=999) or (b=999) or (c=999) or (d=999) then Writeln('a=',a,' b=',b,' c=',c,' d=',d)
else Writeln('sum=',c+d);
readln;
end.
1)
(Слова разделяются одним пробелом)
var s:string;
l,i:integer;
begin
writeln('Введите строку:');
readln(s);
l:=length(s);
i:=l;
while s[i]<>' ' do
begin
s[i]:='!';
i:=i-1;
end;
writeln(s);
end.
Пример:Введите строку:
с клавиатуры вводится строка символов
с клавиатуры вводится строка !!!!!!!!
2)
var s1,s2:string;
p,i:integer;
begin
writeln('Введите строку:');
readln(s1);
p:=pos(';',s1);
s2:=copy(s1,1,p);
i:=p+1;
while s1[i]<>';' do i:=i+1;
s2:=s2+copy(s1,i,length(s1)-i+1);
writeln(s2);
end.
Введите строку:
abс;xyz;reо
abс;;reо
