1.var a,b:integer; begin writeln('введите числа (0 признак окончания ввода)'); readln(a); b:=1; while (a<>0) do begin readln(a); if (a mod 2 = 0) and (a<>0) then b:=b*a; end;writeln('произведение чётных чисел последовательности ',b); end. 2.var a,b:integer; begin b:=0; a:=1; while (a<=10000) do begin if (a mod 10 = 0) then b:=b+1; a:=a+1; end; writeln('количество круглых чисел ',b); end. 3.var a,b:integer; begin writeln('введите числа (1 признак окончания ввода)'); readln(a); b:=0; while (a<>1) do begin readln(a); if (a mod 7 = 0) then b:=b+1; end; writeln('цифра 7 встречается ',b,' раз'); end. 4.var a,b:integer;begin writeln('введите числа (0 признак окончания ввода)'); b:=0; a:=1; while (a<>0) do begin readln(a); if (a<>0) then b:=a*a+b; end;writeln('сумма квадратов ',b); end.
Параметры страницы: Эта команда устанавливает параметры страницы для размещения на ней документа. Диалоговое окно состоит из 4 вкладок: Поля, Размер бумаги, Источник бумаги и Макет. Рассмотрим первые две. На вкладке Поля устанавливаются отступы от краев бумаги до начала текста.
Разметка страницы: Самый удобный режим. В нем документ выглядит так, как он будет выглядеть при печати, причем, сверху и слева располагаются линейки, в которых можно устанавливать абзацные отступы.
Надстрочные и подстрочные символы: Это символы которые можно получить при одновременном нажатии CTRL, SHIFT и "+" выделенные знаки становятся надстрочными, а если тут же, оставив нажатой только кнопку CTRL, нажать "=", знаки переходят в построчные.
б)1627.2
в)04.8000