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

10.10.2008, 16:32. **Показов** 3092. **Ответов** 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 в квадрат возводилась (хотя я это уже писал)

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

Новые блоги и статьи Все статьи Все блоги /
Оптимизация производительности Express.js бэкенда Reangularity 23.05.2025 Express. js заслуженно остаётся одним из самых популярных инструментов для создания бэкенда, но даже он не застрахован от проблем с производительностью. Многие разработчики сталкиваются с ситуацией,. . .	Продвинутая обработка данных с LINQ в C# stackOverflow 23.05.2025 LINQ (Language Integrated Query) — это фундаментальное изменение парадигмы работы с данными в C#. Простые запросы Where и Select знакомы любому разработчику, но настоящая мощь LINQ раскрывается в. . .	Инфраструктура PKI и сертификатов безопасности Mr. Docker 23.05.2025 PKI (Public Key Infrastructure) — это невидимый фундамент цифрового доверия, без которого современный интернет просто рассыпался бы как карточный домик. За этой аббревиатурой скрывается целый. . .	Аутентификация OAuth в Python py-thonny 22.05.2025 OAuth (Open Authorization) — это целый стандарт для делегированного доступа. Звучит занудно? Давайте проще: OAuth позволяет приложениям получать доступ к информации пользователя на сторонних сервисах. . .	Хеширование и соль паролей в веб-приложениях C# stackOverflow 22.05.2025 Когда-то в начале своей карьеры я тоже грешил простейшими подходами к хранению паролей – MD5-хеширование казалось верхом защиты. Но технологии не стоят на месте, вычислительные мощьности растут, и. . .
Генераторы Python для эффективной обработки данных AI_Generated 21.05.2025 В Python существует инструмент настолько мощный и в то же время недооценённый, что я часто сравниваю его с тайным оружием в арсенале программиста. Речь идёт о генераторах — одной из самых элегантных. . .	Чем заменить Swagger в .NET WebAPI stackOverflow 21.05.2025 Если вы создавали Web API на . NET в последние несколько лет, то наверняка сталкивались с зелёным интерфейсом Swagger UI. Этот инструмент стал практически стандартом для документирования и. . .	Использование Linq2Db в проектах C# .NET UnmanagedCoder 21.05.2025 Среди множества претендентов на корону "идеального ORM" особое место занимает Linq2Db — микро-ORM, балансирующий между мощью полноценных инструментов и легковесностью ручного написания SQL. Что. . .	Реализация Domain-Driven Design с Java Javaican 20.05.2025 DDD — это настоящий спасательный круг для проектов со сложной бизнес-логикой. Подход, предложенный Эриком Эвансом, позволяет создавать элегантные решения, которые точно отражают реальную предметную. . .	Возможности и нововведения C# 14 stackOverflow 20.05.2025 Выход версии C# 14, который ожидается вместе с . NET 10, приносит ряд интересных нововведений, действительно упрощающих жизнь разработчиков. Вы уже хотите опробовать эти новшества? Не проблема! Просто. . .

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

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

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	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

Опции темы