Определите значение переменной а после исполнения алгоритма: a := 4 b := 24+9*a a := b/5*a В ответе укажите одно число – значение переменной а. 112 48 7 12
begin var a:=ReadInteger('Введите a от 1 до 30:'); if a<1 then begin Writeln('Неверно'); Exit end; var b:=ReadInteger('Введите b от '+a.ToString+' до 30:'); if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end; var P:=ArrFill(30,0); for var i:=a-1 to b-1 do P[i]:=2; P.Println end.
Пример Введите a от 1 до 30: 2 Введите b от 2 до 30: 10 0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
Можно воспользоваться вариантом Vladmor, он более легкий и подходит под эту задачу, но чтобы не повторяться, для разнообразности, предложу свой вариант.
1+3+5+7 это ничто иное как арифметическая прогрессия. Есть несколько формул суммы членов прогрессии, но под этот тип задачи подойдёт такая:
- это член последовательности с индексом 1, то есть первое число в ряду. d - это разность между двумя соседними членами, из большего вычитаем меньшее
n - это сколько всего членов
и так, у нас получается = 1 (в условии задачи сказано что первый подарок весит 1кг) d = 2 (в условии сказано что следующий подарок увеличивается на 2, ничто иное как разность) n = это переменная, она нам не известна, поэтому так и оставим. - это сумма веса всех подарков, в примере используется слово "weight" что в переводе "вес", поэтому подставим это слово.
И теперь подставим что у нас имеется. weight = weight =
В коде программу будет записано так weight = ( ( 2+2*(n-1) ) / 2)*n
Проверим, например у нас 5 детей, значит надо 5 подарков, это 1+3+5+7+9 = 25 Проверим формулу weight = ( ( 2+2*(5-1) ) / 2)*5 weight = ( ( 2+2*4 ) / 2)*5 weight = ( ( 2+8 ) / 2)*5 weight = ( 10 / 2)*5 weight = 5*5 weight = 25 Всё сходится.
Расписал подробно, чтобы всё было понятно Так же этот вариант подойдёт для других таких типовых задач, а вариант Vladmor подойдёт только в некоторых случаях, будь внимателен(на)
// Внимание! Если программа не работает, обновите версию!
1. Решение без проверки вводимых данных
begin
var a,b:integer;
Read(a,b);
var P:=ArrFill(30,0);
for var i:=a-1 to b-1 do P[i]:=2;
P.Println
end.
Пример
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2. Решение с контролем ввода
begin
var a:=ReadInteger('Введите a от 1 до 30:');
if a<1 then begin Writeln('Неверно'); Exit end;
var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
var P:=ArrFill(30,0);
for var i:=a-1 to b-1 do P[i]:=2;
P.Println
end.
Пример
Введите a от 1 до 30: 2
Введите b от 2 до 30: 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1+3+5+7 это ничто иное как арифметическая прогрессия.
Есть несколько формул суммы членов прогрессии, но под этот тип задачи подойдёт такая:
- это член последовательности с индексом 1, то есть первое число в ряду.
d - это разность между двумя соседними членами, из большего вычитаем меньшее
n - это сколько всего членов
и так, у нас получается
= 1 (в условии задачи сказано что первый подарок весит 1кг)
d = 2 (в условии сказано что следующий подарок увеличивается на 2, ничто иное как разность)
n = это переменная, она нам не известна, поэтому так и оставим.
- это сумма веса всех подарков, в примере используется слово "weight" что в переводе "вес", поэтому подставим это слово.
И теперь подставим что у нас имеется.
weight =
weight =
В коде программу будет записано так
weight = ( ( 2+2*(n-1) ) / 2)*n
Проверим, например у нас 5 детей, значит надо 5 подарков, это
1+3+5+7+9 = 25
Проверим формулу
weight = ( ( 2+2*(5-1) ) / 2)*5
weight = ( ( 2+2*4 ) / 2)*5
weight = ( ( 2+8 ) / 2)*5
weight = ( 10 / 2)*5
weight = 5*5
weight = 25
Всё сходится.
Расписал подробно, чтобы всё было понятно
Так же этот вариант подойдёт для других таких типовых задач, а вариант Vladmor подойдёт только в некоторых случаях, будь внимателен(на)