1. Полная программа:
Var S,i: Integer;
Begin
S:=10; For i:=1 to 4 do S:=S - i;
writeln(s);
End.
2. Значение переменной S: 0.
1. 40 килобайт = 40960/1024
2. ДВГАБ
3. 20 килобит это 20*1024=20480 бит это объем всего текста далее 16*64*40=40960 бит значит 2 страницы
с:/7 класс/опрос/самостоятельная работа.doc
5. вопрос не могу точно ответить 75
1) величина: цвет волос значение: рыжеволосый
2) величина: вес значение: 7 кг
3) величина: материал значение: Фарфоровая
4) величина: страна изготовления значение : Япония
5) величина: объем, значение: Большой
6) величина: размер значение: 17 дюймов
Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.
Море-горе-гора-пора-пара-папа-сапа-Саша-суша.