Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Олеся94
0 / 0 / 0
Регистрация: 20.02.2014
Сообщений: 9
1

Замените все положительные четные числа на числа "перевертыши"

15.03.2014, 14:34. Просмотров 837. Ответов 1
Метки нет (Все метки)

Пусть дана прямоугольная матрица А(n х m), элементами которой являются целые числа. Замените все положительные четные числа на числа, являющиеся их «перевертышами». Составьте программу, получающую для заданного числа его «перевертыш» (число а будем считать «перевертышем» числа b, если, читая число а справа налево, получаем число b).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.03.2014, 14:34
Ответы с готовыми решениями:

Найти все натуральные числа, состоящие из N цифр, для которых верно утверждение "все цифры числа различны"
Дано натуральное число N (2<=N<=8). Найти все натуральные числа, состоящие из N цифр, для которых...

Дать для числа наименование: "рубль", "рубля", "рублей"
Дано натуральное число N (N<20), определяющее сумму денег в рублях. Дать для этого числа...

Вывести все четные числа, начиная с числа N и до числа M
составить программу в паскале,используя оператор WHILE.Вывести все четные числа,начиная с числа N и...

Вывести все четные числа начиная с числа N и до числа M
помогите кто чем может: while вывести все четные числа начиная с числа N и до числа M. числа...

В массиве найти все пары "дружественных" чисел, которые не больше заданного числа N
Помогите решить пожалуйста задачи на массивы. 1. 2 натуральных числа называются...

1
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
15.03.2014, 15:30 2
Лучший ответ Сообщение было отмечено Олеся94 как решение

Решение

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
var a:array[1..20,1..20] of integer;
i,j,n,m,c,k:integer;
 
BEGIN
 clrscr;
  repeat
   write('n=');
    readln(n);
     write('m=');
      readln(m);
  until (n and m) in [0..20];
 
  for i:=1 to m do
   for j:=1 to n do
    a[i,j]:=random(100)-35;
 
    for i:=1 to m do
     begin
      for j:=1 to n do
       write(a[i,j]:4) ;
        writeln;
     end;
 
     for i:=1 to m do
      for j:=1 to n do
       if (a[i,j] mod 2=0) and (a[i,j]>0) then
         begin
          k:=0;
           while a[i,j]>=1 do
            begin
             c:=a[i,j] mod 10;
             k:=k*10+c;
             a[i,j]:=a[i,j] div 10;
            end;
           a[i,j]:=k;
         end;
 
        writeln;
 
    for i:=1 to m do
     begin
      for j:=1 to n do
       write(a[i,j]:4) ;
        writeln;
     end;
 
   readkey;
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.03.2014, 15:30

Дана действительная матрица размера m x m "." Определить числа b0, b1, "...," bm равные соответственно: разностям наибольших и наименьших знач. эл-ов.
Помогите с решением плз. если есть на форуме дайте ссылку. спасибо

как переставить числа в очереди таким образом, чтобы в начале последовательности оказались все положительные числа, а в конце отрицательные?
как переставить числа в очереди таким образом, чтобы в начале последовательности оказались все...

Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно
Даны целые положительные числа A и B (A &lt; B). Вывести все целые числа от A до B включительно; при...


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

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

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