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

Составить программу, которая бы по названию языка программирования выводила название этого языка. паскаль

👇
Ответ:
natakalip09wj0
natakalip09wj0
21.03.2020
Const
  ru : array[1..33] of Char   =     ('а','б','в','г','д','е','ё','ж','з','и',
                                     'й','к','л','м','н','о','п','р','с','т',
                                     'у','ф','х','ц','ч','ш','щ','ъ','ы','ь',
                                     'э','ю','я');
  en : array[0..33] of String = (' ','a','b','v','g','d','e','ye','zh','z','i',
                                     'y','c','l','m','n','o','p','r','s','t',
                                     'u','f','h','c','ch','sh','sch','`','ы','',
                                     'ea','yu','ja');
{ транскрипцию записал не заглядывая ни в какие справочники - можете кидаться тапками }
 
Function GetIndex(ss : Char) : Byte;
Var ii : Byte;
Begin
  ii:=1;
  While (ii<=33) and (LowerCase(ss)<>ru[ii]) do Inc(ii);
  If ii in [1..33] then GetIndex:=ii else GetIndex:=0;
end;

Function Trans(S : String) : String;
Begin
  If Length(S)>0 then Trans:=en[GetIndex(S[1])]+Trans(Copy(S,2,Length(S)-1))
   else Trans:='';
end;

Begin
  Writeln(Trans('паскаль'));
  Writeln(Trans('ява'));
end.
4,8(26 оценок)
Открыть все ответы
Ответ:
Andreyvko1
Andreyvko1
21.03.2020

#include <iostream> // подключаем библиотеки

#include <cstdlib>

using namespace std; // глобальное пространство имён

int main()

{

setlocale(LC_ALL,"russian"); // русский язык

int tenge;

int number = 0;

cout << "Введите сумму Вашего вклада: ";

cin >> tenge;

if(tenge==200000) // если вклад 200000

{

cout << "Ваш доход составит 13,5% в год. ";

number = number+1;

}

if(tenge==350000) // если вклад 350000

{

cout << "Ваш доход составит 14,2% в год. ";

number = number+1;

}

if(number==0) // если какая-то иная сумма

{

cout << "Требуется уточнить у менеджера процентную ставку для Вашей суммы вклада. Ожидайте.";

}

   system("pause");

   return 0; // код ошибки "0"

}

4,7(41 оценок)
Ответ:
nastiaalecko00
nastiaalecko00
21.03.2020
Var
    a: array [,] of integer;

begin
    var n := ReadlnInteger('n = ');
    var m := ReadlnInteger('m = ');
    var rand := ReadlnInteger('Для ручного ввода нажмите 0');
    
    if rand = 0 then begin
        a := new integer[m, n];
        for var i := 0 to m-1 do
            for var j := 0 to n-1 do
                a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
    end
    else a := MatrixRandom(m, n, 1, 100);
    Println(a);
    
    var b := ArrGen(n, x -> 1);
    for var i := 0 to m-1 do
        for var j := 0 to n-1 do
            if j mod 2 = 0 then
                b[j] := b[j] * a[i, j];
    
    b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
4,5(74 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ