Поделитесь своими знаниями, ответьте на вопрос:
Алгоритм выполнения работы: 1. Меню Вставка – Фигуры выбираем квадрат и рисуем его на рабочей области 2. Копируем квадратик, чтобы создать макет кроссворда. Выделим квадратик (щёлкнем мышкой по нему), нажимаем клавишу Ctrl, вытягиваем остальные квадратики и делаем макет кроссворда. 3. Чтобы вставить букву надо – выделить квадратик, щёлкнуть по нему правой кнопкой мыши и нажать действие Добавить текст. 4. Чтобы сделать впереди букв маленькую цифру есть 2 кнопки в меню Главная Х 2 и Х 2 Когда нажмём на Х 2 , получится маленький символ внизу, затем опять нажимаем на эту кнопку пойдут опять нормальные буквы. Для Х 2 будем набирать верхний символ
i, s1, s2, s3, s4, n: integer;
begin
write('n = ');
readln(n);
s1 := 0;
s2 := 0;
s3 := 0;
s4 := 0;
for i := 1 to n do
begin
s1 := s1 + i;
s2 := s2 + sqr(i);
if i mod 2 = 0 then s3 := s3 + i;
end;
for i := 10 to 99 do s4 := s4 + i;
writeln('Сумма первых n натуральных чисел: ', s1);
writeln('Сумма квадратов первых n натуральных чисел: ', s2);
writeln('Сумма всех четных чисел: ', s3);
writeln('Сумма всех двухзначных чисел: ', s4);
end.