Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
bombom
2 / 2 / 1
Регистрация: 20.12.2013
Сообщений: 100
1

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

08.01.2014, 12:48. Просмотров 1002. Ответов 3
Метки нет (Все метки)

1) Написать программу нахождения элемента последовательности по его номеру. Массивами пользоваться запрещено.
an = (2n-1)*n!, где n! = n*(n-1)*(n-2)...3*2*1

2)Найдите все трехзначные числа, которые при зачеркивании средней цифры уменьшаются в 7 раз. Для нахождения целой части частного при делении a на b использовать выражение a div b; для нахождение остатка a mod b.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2014, 12:48
Ответы с готовыми решениями:

Ввести 20 чисел, вывести те, которые при зачеркивании последеней цифры уменьшаются в целое количество раз
1. Ввести 20 чисел, вывести те, которые при зачеркивании последеней цифры...

Вывести все трехзначные числа, для которых квадрат средней цифры кратен 7
вывести на экран все трех значные числы для которых квадрат средней цифры...

Найдите все четырёхзначные числа, которые уменьшаются в 17 раз после отбрасывания первой цифры
Найдите все четырёхзначные числа, которые уменьшаются в 17 раз после...

Найти все трехзначные числа, которые при увеличении на 1 делятся на 2
Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при...

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

3
pahuss
76 / 71 / 66
Регистрация: 11.04.2013
Сообщений: 221
08.01.2014, 13:40 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program cikl;
 
function fact(n:integer):integer;
var i, a :integer;
begin
a:=1;
for i:=1 to n do
   a:= a*i;
result:=a;
end;
 
var an, n : integer;
begin
writeln('N=');
readln(n);
an:=(2*n-1)*fact(n);
writeln(an);
end.
Это 1 программа

Добавлено через 27 минут
вторую напишу вечером
1
bombom
2 / 2 / 1
Регистрация: 20.12.2013
Сообщений: 100
08.01.2014, 13:58  [ТС] 3
Cпасибо большое) Буду ждать!
0
pahuss
76 / 71 / 66
Регистрация: 11.04.2013
Сообщений: 221
08.01.2014, 18:09 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program cikl;
 
var s: string;
    s1, s2, i: integer;
    k: byte;
begin
k:=0;
for i:=100 to 999 do begin
    s:=IntToStr(i);
    s1:=StrToInt(s);
    Delete(s,2,1);
    s2:=StrToInt(s);
if  (s1 div s2 = 7) and (s1 mod s2 = 0) then begin
    writeln('×èñëî ',i, ' óìåГ*üøèëîñü Гў ñåìü Г°Г*Г§');
    k:=k+1; end;
end;
    writeln('Èòîãî ',k);
end.
из всех трехзначных чисел от 100 до 999 вынимается средняя цифра и если полученное число меньше исходного ровно в семь раз то программа его выводит.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.01.2014, 18:09

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru