0 / 0 / 0
Регистрация: 07.06.2011
Сообщений: 23
1

Защитное программирование

15.02.2012, 17:32. Показов 936. Ответов 2
Метки нет (Все метки)

Ввести 20 натуральных чисел. Вывести те из них, которые при зачеркивании последней цифры уменьшаются в целое число раз. Вывести во сколько раз число уменьшилось.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.02.2012, 17:32
Ответы с готовыми решениями:

Бесплатное защитное ПО
Подумал, что неплохо бы создать тему, в которой будт перечислены бесплатные защитные программы...

Защитное стекло
здравствуйте! какое стекло заказать для Xiaomi Redmi Note 4 Global на AliExpress.com , чтоб...

Питание контроллера, металлический корпус и защитное заземление
Приветствую! Я не являюсь специалистом по АСУ, потому много простых элементарных вещей мне не...

Сенсорный телефон. Треснуло защитное стекло. Нужно ли менять дисплей целиком?
Доброго времени суток. Уронил телефон, треснуло защитное стекло (думаю сам дисплей цел, т.к. на...

2
--\.founder./--
565 / 565 / 392
Регистрация: 20.10.2011
Сообщений: 867
15.02.2012, 18:12 2
Лучший ответ Сообщение было отмечено 1Николай1 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
var a,x,i:integer;
mas,maskol:array [1..20] of integer;
 
Procedure P( a:integer; var z:integer ); // ïðîöåäóðà äëÿ ðàáîòû ñ ÖÈÔÐÀÌÈ ÷èñëà 'A'
var b,n,x:integer;
begin
x:=1;
b:=0;
a:=a div 10;
     while a>0 do // äî òåõ ïîð, ïîêà a > 0 âûïîëíÿòü öèêë
     begin
     n:=a mod 10; // íàõîäèì ïåðâóþ öèôðó ÷èñëà ( ñëåâà íà ïðàâî )
     a:=a div 10; // îòáðàñûâàåì îò èñõîäíîãî ÷èñëà ïåðâóþ öèôðó (ñëåâà íà ïðàâî) , åñëè à > 0, òî ïîâòîðÿåì öèêë
     b:=b+n*x;
     x:=x*10;
     end;
z:=b;
end;
 
begin
 
writeln('Ââåäèòå 20 ÷èñåë: ');
For i:=1 to 20 do
begin
  Write(i,': '); readln(mas[i]);
  P(mas[i],x);
  Maskol[i]:=x;
end;
 
For i:=1 to 20 do
begin
If mas[i] mod maskol[i] = 0 then writeln('×èñëî ', mas[i],' ïðè çà÷åðêèâàíèè ïîñëåäíåé öèôðû ñòàëî = ', maskol[i],' è óìåíüøèëîñü â ',mas[i]/maskol[i]);
end;
 
end.
0
Вирусоборец
11084 / 6323 / 1307
Регистрация: 06.09.2009
Сообщений: 24,049
15.02.2012, 22:51 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var n, x, i: integer;
    a: array [1..20] of integer;
 
begin
 writeln('Введите 20 чисел: ');
 for i:=1 to 20 do
  begin
   write(i,'-й элемент: ');
   readln(a[i]);
  end;
 for i:=1 to 20 do
  begin
   x:= a[i] div 10;
   if (x<>0) and (a[i] mod x = 0)
    then
     begin
      n:=  a[i] div x;
      writeln('Число ', a[i], ' при зачеркивании последней цифры стало = ', x, ' и уменьшилось в ', n, ' раз');
     end;
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.02.2012, 22:51
Помогаю со студенческими работами здесь

Программирование одномерных массивов. Программирование двумерных массивов. Программирование динамических массивов VBA
1. Написать процедуру по упорядочению элементов заданного массива В в следующем порядке: сначала...

Выбор кафедры в дальнейшей жизни: прикладное программирование VS системное программирование
Сразу извиняюсь что очень не по теме но всё же лучшего форума для этого вопроса я не нашел. Итак я...

Хочу изучать программирование какой язык программирование выбрать ?
Хочу изучать программирование какой язык (С, С++, С# или Delphi) программирование выбрать ? Цель...

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


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

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

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