Вы можете уменьшить размер файлов и пространство на диске с сжатия рисунков в документе. параметры сжатия уменьшают как размер файл, так и размеры рисунков, в зависимости от того, как планируется использовать изображение, например для просмотра на экране или в сообщении электронной почты. сжать можно все рисунки в файле или только специально выделенные. если документ сохранен в более старом формате doc, то параметр "уменьшить размер файла" не будет доступен в меню "файл". чтобы использовать параметр "уменьшить размер файла", сохраните документ в новом формате docx.
Var p, q: longint; n, i, j, c: integer; begin // 1 write('n=');readln(n); for i := 1 to n do begin q := 1; for j := 1 to i do q := q * i; p := p + q; end; writeln ('Значение = ', p);
// 2 write('Число годовых оценок=');readln(n); p:=0; for i := 1 to n do begin write('оценка: '); readln(c); if c = 5 then p := p + 1 else if c = 2 then p := - 1; end; writeln(p > 0);
// 3 n := 20; p := MaxInt; for i := 1 to n do begin write('Введите высоту здания ', i, ': '); readln(c); if c < p then p := c; end; writeln('Минимальная высота: ', p);
//4 n := 20; p := -1; for i := 1 to n do begin write('Введите высоту здания ', i, ': '); readln(c); if c > p then p := c; end; writeln('Максимальное значение высоты: ', p); end.
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
end.