enot1975
?>

Скласти програму Pascal abc net , яка передбачала б введення послідовності символів та : Підрахувати найбільшу кількість пробілів, які йдуть підряд.

Информатика

Ответы

monolit-kolomna

program p1;

uses Crt;

var

 i, n, m, min: integer;

begin

 ClrScr;

 Write('Длина последовательности: ');

 Readln(n);

 Read(min);

 for i := 2 to n do

 begin

   Read(m);

   if m < min then

     min := m;

 end;

 Writeln(min);

 ReadKey;

end.

program p2;

uses Crt;

var

 i, n, m, max, k: integer;

begin

 ClrScr;

 Write('Длина последовательности: ');

 Readln(n);

 Read(max);

 k := 1;

 for i := 2 to n do

 begin

   Read(m);

   if m > max then

   begin

     max := m;

     k := 1;

   end

   else if m = max then

     k := k + 1;

 end;

 Writeln(k);

 ReadKey;

end.

Aleksandrovna Kolesnik1764

базовое программное обеспечение (base software) – минимальный набор программных средств, обеспечивающих работу компьютера.

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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Скласти програму Pascal abc net , яка передбачала б введення послідовності символів та : Підрахувати найбільшу кількість пробілів, які йдуть підряд.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Игорь Андрей
Сергеевна-Пузанов
vis-lyubov8832
veraplucnika
Yuliya
shtankosoyuz1629
artemy682719
extremhunter
izumrud153
pnatalia
ivanovanata36937365
mekap22044
Berezovskaya
igraparkGP51
mb9037479491