В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
UNDEADrevolution
UNDEADrevolution
22.03.2021 02:56 •  Информатика

Паскаль. Как вычислить количество цифр в диапазоне в заданном диапазоне?

Показать ответ
Ответ:
vsviridov08p06zai
vsviridov08p06zai
29.06.2021 14:50

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

Если у гусениц по 24 ножкам:

1)24:2=12-ботинков на одну гусеницу

2)12*10=120-ботинков на 10 гусениц

ответ:120 ботиночек

Если у гусениц по 26 ножкам:

1.)26:2=13-ботинков на одну гусеницу

2)13*10=130-ботинков на 10 гусениц

ответ:130 ботиночек.

28ножек-140 ботинков

30ножек-150 ботинков

32ножки-160 ботинков

34ножки-170 ботинков

36ножек-180 ботинков

38ножек-190 ботинков

40ножек-200 ботинков

42ножки-210 ботинков

Тоесть,если у гусиничек на 2 лапки больше,чем в раз,то к количеству ботинков (которое было так же в раз) прибавляется 10

0,0(0 оценок)
Ответ:
megamozg42
megamozg42
15.04.2020 09:41

(см. объяснение)

Объяснение:

Перед написанием программы я объясню идею:

Я покажу тебе метод, как обойтись без цикла.

Вспомним формулу суммы арифметической прогрессии:

S=\dfrac{a_0+a_n}{2}\times n

С ее можно без труда найти сумму всех четных элементов прогрессии, не забывая, что они идут через 2 (30, 32, 34, 36 и т.п.):

(примечание: здесь n=70/2=35)

S_2=\dfrac{30+98}{2}\times35=2240

Тогда сумма нечетных чисел:

S_1=\dfrac{31+99}{2}\times 35=2275

Теперь перейдем к написанию программы:

begin

writeln('Сумма четных: ', (30+98)/2*35 , '; Сумма нечетных: ', (31+99)/2*35);

end.

Возможно также НЕ ОПТИМАЛЬНОЕ решение (не рекомендую использовать):

var i,n,c:integer;

begin

for i:=30 to 99

do begin

if(i mod 2 = 0) then c:=c+i

else n:=n+i;

end;

writeln('Сумма четных: ', c, '; Сумма нечетных: ', n);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота