Превратить слово бант в коса

Знания

Информатика

1 ответ:

Sezen [71]4 года назад

0 0

Бант - рант - рана - раса - роса - коса

Читайте также

Дано целое число N и набор из N целых чисел.Вывести номера тех чисел в наборе,которые больше своего правого соседа,и количество

Knopysenysh [14]

Program Alexander1;
uses crt;
const n = 10;
var
A:array [1..n] of real;
i,k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('***          OK             ***');
Randomize;
{ввод чисел}
for i:=1 to n do
    begin
      A[i]:= Random(101)-50;
      write(A[i]:7:2,' ');
    end;
writeln('Числа, которые больше своего правого соседа: ');
k:=0;
for i:=1 to n-1 do
    begin
      if A[i]>A[i+1] then
        begin
          k:=k+1;
          writeln(i,'-е число: ',A[i],'>',A[i+1]);
        end;
    end;
writeln('Всего ',k,' таких чисел');
end.

0 0

4 года назад

Составьте программу одномерного массива (10 ячеек), с помощью генератора случайных чисел (диапазон от -500 до 500). Найти минима

владислав101 [198]

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(10,-500,500); a.Println;
Writeln('min=',a.Min,', max=',a.Max,', Sп=',
a.Where(x->x in [10..99]).Sum)
end.

Пример
475 186 243 323 -497 23 -65 -2 180 74
min=-497, max=475, Sп=97

0 0

4 года назад

Ребята кто такое сможет решить???? очень нужно!

лилия59

1) А:174; Б: понятия не имею
2) 6450 или 1100100110010
3) 3 бита

0 0

4 года назад

Продолжить ряд: i486 athlon pentium celeron

MASYANYA7 [2.1K]

я думаю что вариант а будет правильным. удачи

0 0

4 года назад