Program task;
var x,i,sum:integer;
begin
readln(x);
sum := 0;
for i := 1 to 4 do
begin
sum := x mod 10 + sum;
x := x div 10;
end;
writeln(sum);
readln;
<span>end. </span>
Var
a,b,c,y,rez:real;
begin
writeln ('Введите A B C через пробел');
readln(a, b, c);
if (a>b) and(a>c) then begin
y:=a;
writeln('y =',y:0:2);
end
else if (b>a) and (b>c) then begin
y:=b;
writeln('y= ',y:0:2);
end
else if (c>b) and(c>a) then begin
y:=c;
writeln('y =',y:0:2);
end
else if (a=b) and (a=c) then begin
y:=a;
writeln('y= ',y:0:2);
end;
end.
Общее количество символов для записи идентификатора = 29+9=38
Для кодирования одного символа необходимо log(2)38 ≈ 6 бит.
Для записи одного идентификатора требуется 6*6 бит = 36 бит = 36/8 байт ≈ 5 байт
Для хранения 180 <span>идентификаторов</span> потребуется 5*180 байт = 900 байт = 900/1024 Кбайт ≈ 0,9 Кбайт
Информатика && язык & запрос && Я н д е к с
Запрос Я н д е к с у на поиск по условию:
На странице должно быть слова "информатика", "Я н д е к с" и предложение, в котором одновременно присутствуют слова "язык" и "запрос"
Примечание: Я н д е к с надо писать слитно, местная система не любит этого имени и не позволяет его записать в обычном виде.