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

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

10.10.2008, 16:32. Показов 2919. Ответов 7
Метки нет (Все метки)

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

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

Заранее спосибо!
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2008, 16:32
Ответы с готовыми решениями:

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

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

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

Цикл: Найти все простые числа, для каждого из которых сумма первой и второй цифры равна сумме третьей и четвертой цифры.
На интервале найти все простые числа для каждого из которых сумма первой и второй цифры равна...

7
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.10.2008, 17:33 2
Условие по которому нужно выводить числа такое:
if i div 100 +i mod 10> i div 10 mod 10 then, где i число от 100 до 999. Ну а как организовать циклы, это в любой учебник.
0
2 / 2 / 0
Регистрация: 24.12.2010
Сообщений: 96
24.12.2010, 16:34 3
Помогите решить задачу!!!!!
Вообщем дана форумала 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
Robin Bad на форуме
237 / 237 / 194
Регистрация: 14.12.2010
Сообщений: 513
24.12.2010, 16:42 4
А что тебе надо - чтобы z выводилось?
0
3 / 3 / 1
Регистрация: 24.12.2010
Сообщений: 16
24.12.2010, 16:42 5
во первых ты Z вообще не выводиш, во вторых форму которую ты записал означает
A*(1+i/100) умноженное на N в квадрате, а по условию как я понял у тебя всё выражение должно быть в степени N
0
152 / 150 / 44
Регистрация: 09.02.2010
Сообщений: 407
24.12.2010, 16:43 6
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.
0
2 / 2 / 0
Регистрация: 24.12.2010
Сообщений: 96
24.12.2010, 16:44 7
Должно вывести Z . Скобку я должен возвести в степень N
0
3 / 3 / 1
Регистрация: 24.12.2010
Сообщений: 16
24.12.2010, 16:46 8
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 в квадрат возводилась (хотя я это уже писал)

надеюсь циклы уже прошли?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2010, 16:46
Помогаю со студенческими работами здесь

Найти все простые числа из интервала (1000, 9999), у которых сумма первой и второй цифры равна сумме третьей и четвертой цифры.
Всем привет! :beach: Дали 6 заданий по практике, нужно выбрать одну из них и написать на С++...

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

Посчитать количество чисел, в которых сумма первой цифры и третьей цифры равна второй цифре
Условие: посчитать количество чисел, в которых сумма первой цифры и третей цифры равна второй...

Найти все трехзначные числа, вторая цифра которых равна сумме первой и третьей цифры
Конструкция Do.....Loop Пример способа решения, по которому мне надо решить( Private Sub...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru