Найти сумму чисел, оканчивающихся на 1 - Turbo Pascal
Формулировка задачи:
1)Определяет набор чисел, которые разделив 4 на периметра
2)Сумма чисел, оканчивающиеся в 1 на нечетное позиции
Помогите пожалуйста срочно решить в Турбо Паскал.
Решение задачи: «Найти сумму чисел, оканчивающихся на 1»
textual
Листинг программы
- program sum_1;
- var
- a:integer;
- sum,i,n:integer;
- s:string;
- begin
- writeln('N: ');
- readln(n);
- sum:=0;
- for i:=1 to n do
- begin
- readln(a);
- str(a,s);
- if odd(length(s)) and (s[length(s)]='1') then
- begin
- sum:=sum+a;
- end;
- end;
- writeln(sum);
- readln;
- end.
Объяснение кода листинга программы
- Программа начинается с объявления переменных
a
,sum
,i
иn
типаinteger
. Также объявлена переменнаяs
типаstring
. - Выводится сообщение
N:
для ввода числаn
. - Инициализируется переменная
sum
со значением 0. - Запускается цикл
for
, который выполняется от 1 доn
. - Внутри цикла считывается число
a
и преобразуется в строкуs
. - Проверяется условие
if odd(length(s)) and (s[length(s)]='1')
- если длина строкиs
нечетная и последний символ строкиs
равен '1'. - Если условие истинно, то переменная
sum
увеличивается на значениеa
. - После завершения цикла
for
, выводится значение переменнойsum
. - Программа завершается с помощью команды
readln
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д