VSArsentev
?>

Вариант 1. 1. Var тemp: array [3..18] of integer; Имя массива Сколько элементов в массиве? Тип данных в массиве 2. Числовой одномерный массив А заполнен последовательно числами 24, 138, 53, 25, 76. Укажите: значение элемента А[3]. индекс наибольшего элемента массива 3. Опишите на Паскале целочисленный массив из 15 элементов. 4. Задайте значения элементов массива случайным образом из промежутка (-40;40) 5. Элементы массива задаются по формуле for k:=1 to 10 do a[k]:=2+k*3; Запишите первые 5 элементов массива

Информатика

Ответы

satinvova

вот 3 варианта решения задачи:

1. с временной целочисленной переменной вместо булеан.

var

   a, f : integer;

begin

   write('введите число: ');

   readln(a);

   while a div 10 > 0 do begin

       if (a mod 10) >= ((a mod 100) div 10) then f := 1;

       a := a div 10;

   end;

   if f = 0 then writeln('ДА') else writeln('НЕТ');

end.

2. с строчной переменной которой присваивается текст ответа.

var

   a : integer;

   f : string := 'ДА';

begin

   write('введите число: ');

   readln(a);

   while a div 10 > 0 do begin

       if (a mod 10) >= ((a mod 100) div 10) then f := 'НЕТ';

       a := a div 10;

   end;

   writeln(f);

end.

3. без дополнительных переменных но с оператором break.

var

   a : integer;

begin

   write('введите число: ');

   readln(a);

   while a div 10 > 0 do begin

       if (a mod 10) >= ((a mod 100) div 10) then begin

           writeln('НЕТ');

           break;

       end;

       a := a div 10;

       if a < 10 then writeln('ДА');

   end;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вариант 1. 1. Var тemp: array [3..18] of integer; Имя массива Сколько элементов в массиве? Тип данных в массиве 2. Числовой одномерный массив А заполнен последовательно числами 24, 138, 53, 25, 76. Укажите: значение элемента А[3]. индекс наибольшего элемента массива 3. Опишите на Паскале целочисленный массив из 15 элементов. 4. Задайте значения элементов массива случайным образом из промежутка (-40;40) 5. Элементы массива задаются по формуле for k:=1 to 10 do a[k]:=2+k*3; Запишите первые 5 элементов массива
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Овсянкина407
Olgax732
taksa6444
ktripoleva294
troian07
vasilevam
Диана820
des-32463
Руслан Руденко1262
ИП-Сысоев1628
alexandergulyamov
agaloan8
Иванова
blackpoint2020273
Buninilya