Все категории

4 года назад

Дано натуральное число n.проверить будут ли все цифры числа различными паскаль

Знания

Информатика

1 ответ:

Легостев [10]4 года назад

0 0

См. файл во вложении

Читайте также

Помогите!дан двухмерный массив "б" переписать в массив "а"в обратном порядке (задача составляется в паскале)!

Lizka Varenik [27K]

Program primer;
Uses crt;

var i,n: integer;
    a:array[1..100] of integer;

begin clrscr;
      randomize;
      write('Pazmer massiva = ');
      readln(n);

      for i:=1 to n do
      a[i]:= random(100)-50;

      for i:=1 to n do
      write(a[i]:5);

      writeln;
      writeln;

      for i:=n downto 1 do
      write(a[i]:5);
      readln;
end.

0 0

3 года назад

Составить программу , заменяющую отрицательные элементы элементы массива A[10] нулями

vika200310 [7]

Var
mas:array [1..10] of integer;
i:integer;
begin
writeln('Введите числа массива');
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
if mas[i]<0 then
mas[i]:=0;
for i:=1 to 10 do
write(mas[i],' ');
end.

0 0

4 года назад

У гусей и кроликов вместе N лап (N - четное). Сколько может быть гусей и кроликов (вывести все возможные варианты)?

Еленка123

Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>

0 0

2 года назад

Помогите ПОЖАЛУЙСТА: 1 Составьте программу для вычисления суммы массива, состоящего из пятнадцати элементов, значения которых из

Max0110

===== PascalABC.NET =====

begin

// 1

var a := ArrRandom(15, 0, 500);

a.Println;

Println('Сумма элементов равна', a.Sum);

// 2

var b := ArrRandom(20, 0, 200);

b.Println;

var i := b.IndexMin;

Println('Наименьший элемент номер', i + 1,

'имеет значение', b[i]);

// 3

var c := ArrRandom(10, 0, 100);

c.Println;

Println('Количество элементов кратных трем равно',

c.Count(p -> p mod 3 = 0))

end.

0 0

3 года назад

Шифруют данные с целью: удобства передачи данных; удобства хранения данных; скрыть смысл сообщения; раскрыть смысл сообщения?

Данил09

Скрыть смысл сообщения

0 0

4 года назад