М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Задачи по программированию (в паскале) .
если разбираетесь в информатике!
Хелп


Задачи по программированию (в паскале) . если разбираетесь в информатике! Хелп ​

👇
Ответ:
degtyarenko1999
degtyarenko1999
06.03.2020

var N, ans, digit: integer;

begin

 readln(N);

 for var i := 0 to 4 do

 begin

   digit := N div round(power(10, i)) mod 10;

   if digit mod 2 = 0 then

     digit := digit + 1;

   ans := ans + digit * round(power(10, i));

 end;

 writeln(ans);

end.

Объяснение:

Считываем числоВ цикле 5 раз для каждой цифры:Определяем эту цифру целочисленным делением на 10 в соотв. степени и взятием остатка от деления на 10Если цифра четная, то добавляем к ней 1К переменной ответа добавляем новую цифру, домноженную на соотв. степеньВыводим ответ
4,5(58 оценок)
Открыть все ответы
Ответ:
safirr
safirr
06.03.2020

Поисковая система  — это специальный ресурс в Интернете, который выдает информацию пользователю в соответствии с его запросом. То есть этот ресурс собирает все данные в глобальной сети, все веб-проекты и при поступлении от пользователя определенного запроса выдает необходимую искомую информацию путем направления его, например, на тематический блог или сайт.

Таким образом, после создания своего проекта ваша задача будет попасть в выдачу, то есть в «список» или базу поисковой системы. Поскольку продвижение сайта в интернете просто не возможно без использования какой-либо поисковой системы, поэтому вам необходимо будет позаботиться о качестве своего ресурса, о внутренней и внешней его оптимизации. Как это сделать мы поговорим в следующих статьях

4,7(80 оценок)
Ответ:
arseniyyuldash
arseniyyuldash
06.03.2020
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var m:=ReadInteger('Число строк=');
  var n:=ReadInteger('Число стролбцов=');
  var a:=MatrixRandom(m,n,-99,99);
  var imax:=-1; var jmax:=0;
  var imin:=0; var jmin:=0;
  var min:=100; var max:=-100; // больше большего, меньше меньшего
  for var i:=0 to m-1 do begin
    for var j:=0 to n-1 do begin
      Write(a[i,j]:4);
      if (a[i,j]>0) and (a[i,j] mod 2=0) then begin
        if a[i,j]<min then begin imin:=i; jmin:=j; min:=a[i,j] end;
        if a[i,j]>max then begin imax:=i; jmax:=j; max:=a[i,j] end
        end
      end;
    Writeln
    end;
  if imax<>-1 then begin
    Writeln('Минимальный четный положительный элемент A[',
        imin+1,',',jmin+1,']=',a[imin,jmin]);
    Writeln('Максимальный четный положительный элемент A[',
      imax+1,',',jmax+1,']=',a[imax,jmax])
    end
  else
    Writeln('В массиве нет положительных четных элементов')
end.

Тестовое решение
Число строк= 5
Число стролбцов= 8
 -59  98  55 -92 -98  68   5 -82
  63  49  41   7  51  22  55  -4
 -78  42 -35 -60  -6 -15 -34 -28
 -14  55 -44  22  74 -50 -98  85
  50   2  65  39 -47 -59  -7 -87
Минимальный четный положительный элемент A[5,2]=2
Максимальный четный положительный элемент A[1,2]=98
4,4(21 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ