Дана последовательность 5,9,13,17 ...Составьте ПРОГРАММУ(не блок-схему), определяющую число слагаемых, сумма которых равна 324. Надо обязательно на языке Бейсик с какими то там циклами и т.д. Извините я не разбираюсь в этом но такое задание сделайте на бейсике. Обязательно бейсик
Ответы на вопрос:
5 9 13 17 21 25 29 33 37 41 45 49
var sum, i, s: integer; //обыявляем необходимые переменные
//sum - сумма, i - кол-во слогаемых, s - само слогаемое
begin //начало
sum := 0; i := 1; s := 5; //первое слогаемое = 5
repeat
sum := sum + s; //к сумме прибавляем слагаемое
s := s + 4; //увеличиваем слогаемое
i := i + 1; //увеличиваем кол-во слогаемых
until (sum = 324); //выход когда сумма равна 324
writeln ('Слогаемых: '); // выводим кол-во слогаемых
write (i);
end. //конец
procedure средняяцифра(число: int64; var цифра: integer);
begin
var строковоепредставление : = число.tostring;
var числоразрядов : = строковоепредставление.length;
var позицияцифры : = числоразрядов div 2 + 1;
цифра : = строковоепредставление[позицияцифры].todigit
end;
begin
var заданноечисло: int64;
read(заданноечисло);
var искомаяцифра: integer;
средняяцифра(заданноечисло, искомаяцифра);
искомаяцифра.println
end.
пример 123643523 4Популярно: Информатика
-
supervte2011.07.2020 15:11
-
индокролбак29.03.2022 09:00
-
margo220007828.02.2020 12:33
-
nastiasavchak1126.12.2021 23:11
-
0011010010108.08.2022 02:08
-
agasan42008.11.2020 21:17
-
AnVe24.06.2021 20:05
-
МандаринкА48707.09.2021 19:03
-
ttttt1913.01.2022 12:40
-
kirill87716.02.2023 17:07