Найти сумму чисел, оканчивающихся на 1 - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

1)Определяет набор чисел, которые разделив 4 на периметра 2)Сумма чисел, оканчивающиеся в 1 на нечетное позиции Помогите пожалуйста срочно решить в Турбо Паскал.

Решение задачи: «Найти сумму чисел, оканчивающихся на 1»

textual
Листинг программы
  1. program sum_1;
  2. var
  3.   a:integer;
  4.   sum,i,n:integer;
  5.   s:string;
  6. begin
  7.   writeln('N: ');
  8.   readln(n);
  9.   sum:=0;
  10.   for i:=1 to n do
  11.     begin
  12.       readln(a);
  13.       str(a,s);
  14.       if odd(length(s)) and (s[length(s)]='1') then
  15.         begin
  16.           sum:=sum+a;
  17.         end;
  18.     end;
  19.   writeln(sum);
  20.   readln;
  21. end.

Объяснение кода листинга программы

  1. Программа начинается с объявления переменных a, sum, i и n типа integer. Также объявлена переменная s типа string.
  2. Выводится сообщение N: для ввода числа n.
  3. Инициализируется переменная sum со значением 0.
  4. Запускается цикл for, который выполняется от 1 до n.
  5. Внутри цикла считывается число a и преобразуется в строку s.
  6. Проверяется условие if odd(length(s)) and (s[length(s)]='1') - если длина строки s нечетная и последний символ строки s равен '1'.
  7. Если условие истинно, то переменная sum увеличивается на значение a.
  8. После завершения цикла for, выводится значение переменной sum.
  9. Программа завершается с помощью команды readln.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.071 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы