Войти Регистрация Спроси ai-bota

Найти сумму чисел, кратных 3 от 1 до 100. программа паскаль abc.

Ответ:

Вова200711

09.08.2020 15:57

Var
n,s:integer;
begin
n:=3; s:=0;
while n<=100 do begin
    s:=s+n;
    n:=n+3
    end;
Writeln('S=',s)
end.

Результат
S=1683

Первое число, кратное 3 - это само число 3. А дальше просто по 3 прибавляем...

0,0(0 оценок)

Ответ:

Tus1

09.08.2020 15:57

Begin
sum=0;
for i:=1 to 100 do
begin
if i mod 3=0 then
sum:=sum+i;
end;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Эльза132004

31.12.2021 20:29

На python с if решить в целых числах уравнение ( ax + b ) : ( cx + d ) = 0. входные данные вводятся 4 числа: a, b, c и d; c и d не равны нулю одновременно. выходные данные...

Daniela04102005

25.12.2022 16:48

У исполнителя Квадратор две команды, которым присвоены номера: 1. возведи в квадрат 2. вычти y Первая из них возводит число на экране во вторую степень, вторая уменьшает число...

niktim27

21.12.2021 05:32

Підкажіть як цей код ruby перевести в python print Enter A: a = gets.chomp().to_i print Enter B: b = gets.chomp().to_i arr = [] (1..1000).each {|i| arr i if a%i==0 &&...

shahboz3

26.06.2020 05:12

РЕШИТЕ !ОЧЕНЬ ! Дали время до завтра 11:00. Буду очень благодарна если решите! ( Программа Python) Задание: Напишите программу, которая будет вычислять объем куба и площадь...

tat321

08.02.2020 03:13

Упрости логическое выражение и запиши ответ. Логическое выражение: U&G∨U&G¯¯¯. ответ:...

arinaambrosova

07.06.2020 00:28

Чем отличается копирование при нажатой клавише ctrl от копирования при нажатой клавише shift...

DAYH228

19.02.2023 01:14

Найти сумму целых положительных чисел из промежутка от A до B, кратных 5(значение переменных A и B вводятся с клавиатуры). Найденные числа вывести в таблице с указанием шага...

NikaGoddesin

10.11.2020 13:33

Для чого створюють моделі? наведіть приклади...

dirysasha

14.09.2020 00:18

Count = int(input()) nmax = int((2 * count) ** (1 / 2)) for i in range(nmax, 0, -1): if (2 * count - i * i + i) % (2 * i) == 0: print((2 * count - i * i + i) // (2 * i)) break...

зарина67489

11.08.2021 10:24

Объясните возможности антивирусных программ...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку