Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 11.11.2018
Сообщений: 27
1

Написать программу

11.11.2018, 21:57. Показов 1274. Ответов 2
Метки нет (Все метки)

1)Написать программу, которая подсчитывает кол-во 1,2 и 3-х разрядных чисел в массиве, размер n на m из натуральных чисел в диапазоне от 1 до 999, заданном случайным образом (Двумерный массив)
2)Подсчитать кол-во чисел в этом массиве, которые содержат одинаковые цифры в своём написании
Pascal ABC(не .net)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2018, 21:57
Ответы с готовыми решениями:

Написать программу для рисования данного орнамента, написать комментарии к каждому действию программы

Составить блок-схему и программу вычисления значения функции + написать программу
Прошу решить в качестве проверки. Нужно сдать в понедельник. Буду очень благодарен! Заранее...

Написать программу
Дано: type myfile = file of char; Файл заполняется с клавиатуры. Опишите процедуру double(f),...

Написать программу
Если целое число А делится нацело на число В, то вывести на экран частное от деления, в противном...

2
Почетный модератор
64086 / 47495 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
12.11.2018, 10:37 2
Лучший ответ Сообщение было отмечено MSTXXR как решение

Решение

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
50
51
52
uses crt;
function raz(n:integer):integer;
var m:integer;
begin
m:=n;
result:=0;
repeat
m:=m div 10;
inc(result);
until m=0;
end;
function odin(n:integer):boolean;
var a,b,c:integer;
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
odin:=((n in [10..99])and(b=c))
or((n>100)and((a=b)or(a=c)or(b=c)));
end;
var a:array[1..15,1..15] of integer;
    n,m,i,j,k1,k2,k3,ko:integer;
begin
randomize;
repeat
writeln('Введите размеры массива n,m от 2 до 15');
readln(n,m);
until(n in[2..15])and(m in [2..15]);
k1:=0;
k2:=0;
k3:=0;
ko:=0;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=1+random(999);
    write(a[i,j]:4);
    case raz(a[i,j]) of
    1:inc(k1);
    2:inc(k2);
    3:inc(k3);
    end;
    if odin(a[i,j]) then inc(ko);
   end;
  writeln;
 end;
writeln('Количество 1 значных=',k1);
writeln('Количество 2 значных=',k2);
writeln('Количество 3 значных=',k3);
writeln('Количество с одинаковыми цифрами=',ko)
end.
1
0 / 0 / 0
Регистрация: 11.11.2018
Сообщений: 27
12.11.2018, 10:49  [ТС] 3
Спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.11.2018, 10:49

Написать программу
Учусь писать на Pascal.

Написать программу
Дано действительное число х.Вычислить: (x-1)(x-3)(x-7)...(x-63) и всё делить на...

Написать программу
На отрезке методом перебора с шагом 0,05 определить максимум функции S(t)= при k=0,5.

Написать программу
Ввести два числа. Если они отличаются меньше чем на 0,5, то из куба большего числа вычесть куб...


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

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

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