Написать программу распечатывающую сумму всех чисел кратных 3 от 10 до 20

Var i,n,a:integer;
a:array[1..100] of integer;
begin
for i:=10 to 20 do
if a[i] mod 3=0 then writeln(a[i]);
end.

Var i,n,s:byte;
begin
s:=0;
for i:=10 to 20 do
if (i mod 3=0) then s:=s+i;
write(s);
end.

Прежде всего должна быть установлена операционная система, которая позволяет обращаться в службу поддержки. Нажмите кнопку "Пуск". Далее найдите вкладку "Панель управления", и кликните по ней. Откройте окно “Служба справки и поддержки”.

В левой части окна "службы справки и поддержки" находится список “Раздел справки” (Pick a Help topic). Вы можете найти интересующую категорию. Далее нужно нажать на ней. После этого появится список самых распространенных проблем операционной системы.

Кликните мышью на любом из пунктов этого списка. Вы сможете получить консультацию по интересующим вас темам.

Чтобы найти ответ на какой-либо интересующий вопрос, наберите соответствующее ключевое слово в графу «Найти» (Search). Можно также ввести целое предложение.

Далее кликните мышью на расположенной вблизи кнопке, с направленной вправо стрелкой.

Благодаря службе справки и поддержки можно производить различные действия, а именно:

- найти информацию о программах операционной системы, программах поддержки;

- произвести пуск одного из нескольких мастеров, предназначенных для разрешения возникающих вопросов;

- найти сведения по определенном извещении о неполадке;

- проверить присутствие конфликтов между утилитами и аппаратным обеспечением;

- запустить и произвести настройку службу Windows Update;

- прочесть интерактивную документацию.

Если во время работы с операционной системой у вас возникнут проблемы, "справочная система службы справки и поддержки" станет вашим надежным Вызывать службу поддержки также можно клавишей "F1". Также стоит отметить, что Служба поддержки доступна практически в каждом окне. Для этого нажмите на вкладку "Справка", которая находится вверху окна. Далее нажмите "Центр справки и поддержки".

Объяснение:Вроде так

Var
    N, s, i: Integer;
    s1: real;

begin
    readln(N); {общий ввод для всех задач}
    
    if N < 0 then
        writeln('Задача 1. N=', 0)
    else writeln('Задача 1. N=', N + 4);
    
    s := 0;
    for i := 1 to n do
        s := s + i;
    writeln('Задача 7. 1+2+3+…+N=', s);
    
    write('Задача 9. Последовательность от N до 1 = ');
    for i := n downto 1 do
        write(i, ' ');
    writeln();
    
    s1 := 0;
    for i := 1 to n do
        s1 := s1 + i / 10;
    writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
    
    write('Задача 13. Последовательность квадратов от 1 до N = ');
    for i := 1 to n do
        write(i * i, ' ');
    writeln();
    
    write('Задача 14. Последовательность первых N нечетных чисел = ');
    for i := 1 to n do
        write(2 * i - 1, ' ');
    writeln();
    
    if N > 0 then
        writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
    
    s := 0;
    for i := 1 to n do
        if n mod i = 0 then
            s := s + i;
    writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.