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

Дано целое двухзначное число х. Запишите команды, позволяющие получить первую и последнюю цифры числа. Выполняется в Pascal ABC.Реализация алгоритмов работы с целочисленными данными.

👇
Ответ:
GangsterNigga1
GangsterNigga1
20.12.2020


Дано целое двухзначное число х. Запишите команды, позволяющие получить первую и последнюю цифры числ
4,7(1 оценок)
Открыть все ответы
Ответ:
Нукку95
Нукку95
20.12.2020
#include <cstdlib>
#include <iostream>
using namespace std;

int main() {
    int n=10;
    int a[n];
    srand(time(NULL));
    cout<<"array:"<<endl;
    for (int i=0; i<n; i++)
    {
      a[i]=rand() % 50;
      cout<<a[i]<<" ";
    }
    cout<<endl;
    for (int i=1; i<n-1; i++)
      if (a[i]%2==0)  a[i] = a[i]+a[0];
      else a[i] = a[i]+a[n-1];
    for (int i=0; i<n; i++) cout<<a[i]<<" ";
    cout<<endl;
    return(0);
}

Пример:
array:
9 17 11 46 43 39 0 1 26 5
9 22 16 55 48 44 9 6 35 5
Дан целочисленный массив размера n. преобразовать его, прибавив к четным1 | нечетным2 числам первый3
4,6(32 оценок)
Ответ:
3Belchonok3
3Belchonok3
20.12.2020
Верный ответ под номером 3, так как 
for i:=0 to 10 do A[i]:= i; 
Этот участок отвечает за присваивание элементам числа от 0 до 10, элементы после выполнения: 0 1 2 3 4 5 6 7 8 9 10
for i:=1 to 11 do A[i-1]:= A[11-i];
Этот участок, можно сказать, отражает вторую половину, в результате получается вот такое: 10 9 8 7 6 5 6 7 8 9 10

Участок кода для проверки на PascalABC.NET:
begin
  var a:=ArrGen(11,t->t);
  for var i:=0 to 10 do A[i]:= i; a.Println;
  for var i:=1 to 11 do A[i-1]:= A[11-i]; a.Println;
end.
4,8(24 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ