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

👇

Увидеть ответ

Ответ:

LeveL14

14.04.2021

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.

4,7(41 оценок)

Ответ:

proskurina773

14.04.2021

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.

4,6(94 оценок)

Открыть все ответы

Ответ:

artamasvan

14.04.2021

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

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

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

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

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

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

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

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

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

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

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

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

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

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

4,5(74 оценок)

Ответ:

timkoa

14.04.2021

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.

4,4(31 оценок)

Это интересно:

Кулинария-и-гостеприимство

17.03.2023

Как сделать ароматизированный сахар: простые идеи и секреты удачного исполнения...

Кулинария-и-гостеприимство

20.02.2020

Как законсервировать свеклу: советы от профессионалов...

Хобби-и-рукоделие

28.04.2022

Как покрасить песок: советы от профессионалов...

Здоровье