228Cracker228
14.05.2021 16:27

Написать на c++ (строки)
дана строка, содержащая зашифрованный текст. каждая буква
заменяется на следующую за ней (буква я заменяется на а). получить в новом файле
расшифровку данного текста.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Anuffka
13.01.2020 21:04
//дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -10 до 20.
 //Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням, 
//когда были заморозки. Гарантируется, что хотя бы в один день были заморозки

var i,x,y  : shortint;
    s      : real;
    t      : array [1..30] of shortint;
begin
  randomize;
  For i:=1 to 30 do
    begin
     t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20)
     writeln (i,'  ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив  
   end;
 for i:=1 to 30 do
   begin
     if t[i]<0 then
        begin
         x:=x+t[i];
         y:=y+1;
       end;
   end;
   s:=x/y;
   writeln ('Средняя температура по дням, когда были заморозки ',s:0:2);
end.
0,0(0 оценок)
Ответ:
Nadya0210
27.09.2022 11:10
Const
    n = 30;

type
    array100 = array [1..100] of integer;

var
    a: array100;
    i, t: integer;
    f: boolean;

procedure PrintArray(var a: array100);
var
    i: integer;
begin
    for i := 1 to n do
        write(a[i]:3, ' ');
    writeln;
end;

begin
    randomize;
    for i := 1 to n do
        a[i] := random(99) - 50;
       
    PrintArray(a);
   
    repeat
        f := true;
        for i := 1 to n - 1 do
            if (a[i] < 0) and (a[i + 1] >= 0) then begin
                f := false;
                t := a[i];
                a[i] := a[i + 1];
                a[i + 1] := t;
            end;
    until f;
    PrintArray(a);
   
    readln;
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота