Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Написать рекурсивную функцию нахождения количества четных элементов в массиве https://www.cyberforum.ru/ turbo-pascal/ thread527097.html Написать рекурсивную функцию нахождения количества четных элементов в массиве	Turbo Pascal Вычислить последовательно справа налево. Ряды. Pascal. Даны действительное число а и натуральное число n. Вычислить последовательно слева направо и справа налево.
Turbo Pascal Построить синтаксический анализатор https://www.cyberforum.ru/ turbo-pascal/ thread527043.html Кто может помогите	Turbo Pascal как правильно передать значение функции в последующие процедуры во входных параметрах. https://www.cyberforum.ru/ turbo-pascal/ thread527021.html у меня есть код программы в которой нужно упорядочить строки матрицы построчно по возрастанию.я сделала из нее программу с процедурами и функциями.с помощью функции я ввожу размер матрицы и не знаю...
Turbo Pascal Составить программу решения линейного неравенства Составить программу решения линейного неравенства ax<b.	Turbo Pascal Составить программу решения линейного уравнения Составить программу решения линейного уравнения ax=b. https://www.cyberforum.ru/ turbo-pascal/ thread526970.html
Turbo Pascal Найти значение функции при заданном значении аргумента. https://www.cyberforum.ru/ turbo-pascal/ thread526857.html Помогите пожалуйста	не упакованные множества, задача Turbo Pascal нужно написать програму, которая считывает масив с исходного файла, делает над ним операции объединения,пересечение,разности и симетрической разности, конечные результаты записать в выходной файл....
Turbo Pascal Определить периметр правильного n-угольника, описанного около окружности радиуса r https://www.cyberforum.ru/ turbo-pascal/ thread526817.html ЗДРАВСТВУЙТЕ! ПОМОГИТЕ!!! :wall:НУЖНО СРОЧНО РЕШИТЬ , Я НЕ УСПЕВАЮ! А ТО МНЕ КОПЕЦ.=-O 1.Определить периметр правильного n-угольника, описанного около окружности радиуса r. 2.Создать программу,...	Turbo Pascal Перечислить все натуральные числа не превосходящие заданного N Перечислить все натуральные числа не превосходящие заданного N, в двоичном представлении которых номера ненулевых разрядов образуют арифметическую прогрессию. Помогите доделать, он не до конца... https://www.cyberforum.ru/ turbo-pascal/ thread526750.html
Проблема с числами Turbo Pascal Здравствуйте. Уважаемые программисты! Помогите решить следующую проблему: После многократного запуска данной программы var v,x,y,f:extended; n,i,z,integer; koordinati:text; begin ...	Turbo Pascal Вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет https://www.cyberforum.ru/ turbo-pascal/ thread526709.html вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст).

Ev[G]eN

Mobile Software Engineer

5366 / 1585 / 956

Регистрация: 23.01.2011

Сообщений: 3,214

24.03.2012, 20:14

Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму. - Turbo Pascal - Ответ 2831550

24.03.2012, 20:14. Показов 6724. Ответов 2

Метки (Все метки)

Сообщение было отмечено Akari как решение

Решение

Pascal

var
  Count, i: Integer;
  Summa: LongInt;
begin
  Summa:=0;
  writeln('Четырехзначные числа по условию: ');
  for i:=1000 to 9999 do
    if ((i div 100) mod 10 + (i div 1000) mod 10) =
       ((i mod 10) + (i div 10) mod 10) then
    begin
      write(i, ' ');
      Summa:=Summa + i;
      Count:=Count + 1;
    end;
  writeln;
  writeln('Сумма всех чисел: ', Summa);
  writeln('Кол-во: ', Count);
end.

Вернуться к обсуждению:
Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму. Turbo Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.03.2012, 20:14

Готовые ответы и решения:

Вывести на экран те числа, у которых сумма первых двух цифр равна сумме двух последних
39. Дан массив из n четырехзначных натуральных чисел. Вывести на экран только те, у которых сумма...

Найти все четырехзначные числа, такие, что сумма первых двух цифр равна сумме двух последних
найти все четырехзначные числа, такие, что сумма первых двух цифр равна сумме двух последних

Равна ли сумма двух первых цифр числа сумме двух его последних
Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его...

Равна ли сумма первых двух цифр четырехзначного числа сумме двух последних цифр
Ввести с клавиатуры четырехзначное число и определить, равна ли сумма первых двух цифр сумме двух...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

24.03.2012, 20:14

Помогаю со студенческими работами здесь

Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.
Определить равна ли сумма двух первых цифр четырехзначного числа сумме его последних цифр.

Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр
Помогите решить задачу на Паскале. СРОЧНО!!!! Найти все четырехзначные числа,у которых сумма...

Программа, определяющая количество билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних
Подскажите,как написать программу, определяющую количество билетов с 6-значными номерами, у которых...

Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна сумме двух его последних цифр"
Проверить истинность высказывания: "Сумма двух первых цифр данного четырехзначного числа равна...

Наверх