var
sum, temp, i: integer;
sr: real;
d_n: array[1..7] of string;
begin
sum := 0;
d_n[1] := 'Понедельник>>'; d_n[2] := 'Вторник>>'; d_n[3] := 'Среда>>'; d_n[4] := 'Четверг>>'; d_n[5] := 'Пятница>>'; d_n[6] := 'Суббота>>'; d_n[7] := 'Воскресенье>>';
for i := 1 to 7 do
begin
write(d_n[i]);
readln(temp);
sum += temp;
end;
writeln(sum / 7);
end.
Var s,p,real;
begin
p:=1;
s:=0;
for var i:=8 to 35 do
if i mod 2 = 0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма четных = ',s,', Произведенние четных = ', p);
end.
ячейки обозначаются по столбцам слева направо A B C D и т.д., а по строкам 1 2 3 4 и т.д.
C8 CD D4 CE D0 CC C0 D2 C8 C7 C0 D6 C8 DF
Учитывая, что тут больше FF не будет (256 символов, включая нулевой), можно убрать пробелы =)
1. а)
В 2 гигабайтах 2 x 1024^3 байт
2. г)
zip – архивный файл. Так же популярными архивными расширениями являются rar, tgz и 7z
3. б)