Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.

10.10.2008, 16:32. **Показов** 3307. **Ответов** 7

Студворк — интернет-сервис помощи студентам

Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!!
Условие:
Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры.

Решить нужно двумя способами используя цикл с предусловием и используя цикл с постусловием.

Заранее спосибо!

@Puporev · 10.10.2008, 17:33

Условие по которому нужно выводить числа такое:
if i div 100 +i mod 10> i div 10 mod 10 then, где i число от 100 до 999. Ну а как организовать циклы, это в любой учебник.

@Nelo-Vergil · 24.12.2010, 16:34

Помогите решить задачу!!!!!
Вообщем дана форумала z=A(1+I/100)^N (значения N,I,A) вводятся с клавиатуры
Вот я сделал кое что и у меня тупо не выполняются последнии 3 оператора
program v1;
var
Z: real;
A,I,N: integer;
begin
writeln(' введите A,I,N');
readln(A,I,N);
z := A*(1+I/100)*sqr(N);
readln;
end.

@marshal · 24.12.2010, 16:42

А что тебе надо - чтобы z выводилось?

@Egerix · 24.12.2010, 16:42

во первых ты Z вообще не выводиш, во вторых форму которую ты записал означает
A*(1+i/100) умноженное на N в квадрате, а по условию как я понял у тебя всё выражение должно быть в степени N

@dampir_sanek · 24.12.2010, 16:43

Nelo-Vergil,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
Z,res: real;
A,I,N,  p, j: integer;
begin
  writeln('Vvedite A: ');
  readln(A);
  writeln('Vvedite I: ');
  readln(I);
  writeln('Vvedite N: ');
  readln(N);
  z := A*(1+I/100);
  p := 1;
  for j := 1 to N do
      res := p*z;
  writeln ('Result = ', res:10:4);
  readln;
end.

@Nelo-Vergil · 24.12.2010, 16:44

Должно вывести Z . Скобку я должен возвести в степень N

@Egerix · 24.12.2010, 16:46

program v1;
var
Z: real;
A,I,N,j: integer;
begin
writeln(' введите A,I,N');
readln(A,I,N);
z:=1;
for j:=1 to n do z:=z*(1+I/100);
z:=z*A;
writeln('Ответ Z=',z);
readln;
end.

Получи и распишись=) скобка возводится в степень N, затем умножается на А, а то что ты написал у тебя N в квадрат возводилась (хотя я это уже писал)

надеюсь циклы уже прошли?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

Гость нешарит Pascal

	Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры. 10.10.2008, 16:32. Показов 3307. Ответов 7 Метки нет (Все метки) Хорошая тема,поэтому ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ!!!! Условие: Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры. Решить нужно двумя способами используя цикл с предусловием и используя цикл с постусловием. Заранее спосибо!

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	10.10.2008, 17:33
	Условие по которому нужно выводить числа такое: if i div 100 +i mod 10> i div 10 mod 10 then, где i число от 100 до 999. Ну а как организовать циклы, это в любой учебник. 0

@Nelo-Vergil 2 / 2 / 0 Регистрация: 24.12.2010 Сообщений: 96
	24.12.2010, 16:34
	Помогите решить задачу!!!!! Вообщем дана форумала z=A(1+I/100)^N (значения N,I,A) вводятся с клавиатуры Вот я сделал кое что и у меня тупо не выполняются последнии 3 оператора program v1; var Z: real; A,I,N: integer; begin writeln(' введите A,I,N'); readln(A,I,N); z := A(1+I/100)sqr(N); readln; end. 0

@marshal Robin Bad на форуме 237 / 237 / 194 Регистрация: 14.12.2010 Сообщений: 513
	24.12.2010, 16:42
	А что тебе надо - чтобы z выводилось? 0

@Egerix 3 / 3 / 1 Регистрация: 24.12.2010 Сообщений: 16
	24.12.2010, 16:42
	во первых ты Z вообще не выводиш, во вторых форму которую ты записал означает A*(1+i/100) умноженное на N в квадрате, а по условию как я понял у тебя всё выражение должно быть в степени N 0

@Nelo-Vergil 2 / 2 / 0 Регистрация: 24.12.2010 Сообщений: 96
	24.12.2010, 16:44
	Должно вывести Z . Скобку я должен возвести в степень N 0

@Egerix 3 / 3 / 1 Регистрация: 24.12.2010 Сообщений: 16
	24.12.2010, 16:46
	program v1; var Z: real; A,I,N,j: integer; begin writeln(' введите A,I,N'); readln(A,I,N); z:=1; for j:=1 to n do z:=z(1+I/100); z:=zA; writeln('Ответ Z=',z); readln; end. Получи и распишись=) скобка возводится в степень N, затем умножается на А, а то что ты написал у тебя N в квадрат возводилась (хотя я это уже писал) надеюсь циклы уже прошли? 1