Создание документа
CTRL+N
Открытие документа
CTRL+O
Закрытие документа
CTRL+W
Разделение окна документа
ALT+CTRL+S
Сохранение документа
CTRL+S
Завершение работы с Word
ALT+F4
Поиск текста, форматирования и специальных элементов
CTRL+F
Повтор поиска
ALT+CTRL+Y
Замена текста, форматирования и специальных элементов
CTRL+H
Переход к странице, закладке, сноске, таблице, примечанию, рисунку и т. п.
CTRL+G
Возврат к странице, закладке, сноске, таблице, примечанию, рисунку и т. п.
ALT+CTRL+Z
Прокрутка документа
ALT+CTRL+HOME
Прерывание действия
ESC
Отмена действия
CTRL+Z
Повтор действия
CTRL+Y
В режим разметки
ALT+CTRL+P
В режим структуры
ALT+CTRL+O
В обычный режим
ALT+CTRL+N
const N = 5;
var number, i, count : integer;
begin
count := 0;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number mod 5 = 0) and (number mod 7 <> 0) then
count := count + 1;
end;
writeln('Count: ',count);
readln;
end.
Вторая:
const N = 5;
var number, i, count : integer;
begin
count := 0;
for i := 1 to N do
begin
write('Input number: ');
readln(number);
if (number < 0) then
writeln('Square of ',number,' equals ',number*number);
end;
readln;
end.