Подсчитать сумму чисел от 40 до -5

@ваня1993 · Регистрация: 24.12.2011

Студворк — интернет-сервис помощи студентам

1.подсчитать сумму чисел от 40 до -5.
2.найти четные числа и выдать их на экран из последовательности чисел от 29 до 3(использывать шаг счетчика).
3.вычислить сумму чисел,кратных 3,из 10 чисел,введенных с пульта.

@КонецСвета · 24.12.2011, 17:20

Сообщение от ваня1993

1.подсчитать сумму чисел от 40 до -5.

Pascal
1
2
3
4
5
6
7
8
uses crt;
var i,s: integer;
begin
s:=0;
for i:=40 downto -5 do
    s:=s+i;
writeln(s);
end.

@WorldException · 24.12.2011, 17:32

Сообщение от ваня1993

3.вычислить сумму чисел,кратных 3,из 10 чисел,введенных с пульта.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var s,s2,i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('vvedite 4islo: ');
readln(s);
if (s mod 3=0) then s2:=s2+s;
end;
write('summa=',s2);
readkey;
end.

@WebMax 2.0 · 24.12.2011, 17:49

Сообщение от ваня1993

2.найти четные числа и выдать их на экран из последовательности чисел от 29 до 3(использывать шаг счетчика).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
 
var i,n:integer;
 
begin
   Write('Введите шаг счетчика: ');readln(n);
   i:=3;
   Write('Четные числа: ');
   repeat
   if not odd(i) then write(i,' ');
   i:=i+n;
   until i>29;
end.

Добавлено через 2 минуты
Не знаю как с For =(

@КонецСвета · 24.12.2011, 18:05

Сообщение от ваня1993

2.найти четные числа и выдать их на экран из последовательности чисел от 29 до 3(использывать шаг счетчика).

вариант 1

Pascal
1
2
3
4
5
6
uses crt;
var i: integer;
begin
for i:=29 downto 2 do
    if i mod 2=0 then write (i:3);
end.

вариант 2

Pascal
1
2
3
4
5
6
7
8
9
uses crt;
var i: integer;
begin
for i:=28 downto 3 do
    begin
    write (i:3);
    i:=i-1;
    end;
end.

@WorldException · 24.12.2011, 18:08

ваня1993

Pascal
1
2
3
4
5
6
7
8
uses crt;
var i:integer;
begin
clrscr;
for i:=29 downto 3 do
if (i mod 2=0) then write(i,' ');
readkey;
end.

@WebMax 2.0 · 24.12.2011, 18:11

всё равно не фига не понял =)

@WorldException · 24.12.2011, 18:14

WebMax 2.0, ну чего ж тут не понятного?

В моём варианте мы в цикле пробегаем промежуток от 29 до 3 и на каждый шаг проверяем: является ли это число четным. Если таковым является, то его выводим и идём дальше

@КонецСвета · 24.12.2011, 18:15

уточните =) что именно все равно не понял?

@WebMax 2.0 · 24.12.2011, 18:16

Сообщение от КонецСвета

уточните =) что именно все равно не понял?

Просто у него сказано использовать Шаг счетчика . Я думаю вводим шаг к примеру - 3 . И сравниваем числа : 3,6,9,12,15,18 . Я так понимаю шаг счетчика !

@КонецСвета · 24.12.2011, 18:21

да, я тоже так понимаю шаг счетчика... но в условии сказано использовать for... а шаг в for всегда или 1 или -1 (наверное)
так что мы можем попытаться "прыгать" через несколько шагов, в теле цикла увеличивая/уменьшая шаг на сколько требуется...

@WorldException · 24.12.2011, 18:31

Шаг счетчика может быть реализован с помощью 'BY', например:

Pascal
1
FOR i := 1 TO e BY s DO

где s - шаг счетчика

@КонецСвета · 24.12.2011, 18:37

1nf, спасибо, мастер...

@WorldException · 24.12.2011, 18:42

Не по теме:

КонецСвета, дай бог, что без сарказма

@WebMax 2.0 · 24.12.2011, 18:51

Вот только ABC что-то не принимает этот оператор или я что-то не так пишу (

Добавлено через 9 минут
Да и Турбо не принимает .

1nf, объясни плиз как его использовать , может какой-то модуль нуно подключить ? ))

@WorldException · 24.12.2011, 19:10

WebMax 2.0, я дико извиняюсь. Ночь, голова не варит. Выше были правы про шаг 1, или -1. Шаг например в 2 можно задать например с помощью 'mod', остатка от деления.

Pascal
1
2
3
4
5
6
7
for i=1 to n do 
begin
if (i mod 2)=0 then
begin
 
end;
end;

Добавлено через 20 секунд

Не по теме:

Ещё раз извиняюсь..

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

Подсчитать сумму чисел от 40 до -5

Решение

Решение

Решение

Решение

@ваня1993 0 / 0 / 0 Регистрация: 24.12.2011 Сообщений: 9

	Подсчитать сумму чисел от 40 до -5 24.12.2011, 17:06. Показов 1531. Ответов 15 Метки нет (Все метки) 1.подсчитать сумму чисел от 40 до -5. 2.найти четные числа и выдать их на экран из последовательности чисел от 29 до 3(использывать шаг счетчика). 3.вычислить сумму чисел,кратных 3,из 10 чисел,введенных с пульта. 0

@WebMax 2.0 --\.founder./-- 565 / 565 / 392 Регистрация: 20.10.2011 Сообщений: 867
	24.12.2011, 18:11
	всё равно не фига не понял =) 0

@WorldException Банальное исключение 127 / 95 / 12 Регистрация: 31.03.2010 Сообщений: 314 Записей в блоге: 1
	24.12.2011, 18:14
	WebMax 2.0, ну чего ж тут не понятного? В моём варианте мы в цикле пробегаем промежуток от 29 до 3 и на каждый шаг проверяем: является ли это число четным. Если таковым является, то его выводим и идём дальше 1

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	24.12.2011, 18:15
	уточните =) что именно все равно не понял? 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	24.12.2011, 18:21
	да, я тоже так понимаю шаг счетчика... но в условии сказано использовать for... а шаг в for всегда или 1 или -1 (наверное) так что мы можем попытаться "прыгать" через несколько шагов, в теле цикла увеличивая/уменьшая шаг на сколько требуется... 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	24.12.2011, 18:37
	1nf, спасибо, мастер... 0

@WorldException
	24.12.2011, 18:42
	Не по теме: КонецСвета, дай бог, что без сарказма 0

@WebMax 2.0 --\.founder./-- 565 / 565 / 392 Регистрация: 20.10.2011 Сообщений: 867
	24.12.2011, 18:51
	Вот только ABC что-то не принимает этот оператор или я что-то не так пишу ( Добавлено через 9 минут Да и Турбо не принимает . 1nf, объясни плиз как его использовать , может какой-то модуль нуно подключить ? )) 0