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

Написать программу на pascalabcnetвходные данныедана последовательность натуральных чисел, завершающаяся нулем. выходные данныеопределите, какое наибольшее количество подряд идущих элементов этой последовательности равны друг другу.числа, идущие после нуля, считывать не нужно.

👇
Ответ:
221967
221967
23.12.2021
Program kek;var r,q,z,s,n:integer;beginwrite ('введите непустую невозрастающуюю последовательность целых чисел, заканчивающуююся нулем');readln (n);z:=0;q:=1;while n<>0 dobeginif n=z then q:=q+1       else z:=n;readln (n);      end;write ('кол-во одинаковых, идущих подряд чисел равно  ', q);end.     
4,4(49 оценок)
Открыть все ответы
Ответ:
SAMAWHICE
SAMAWHICE
23.12.2021

1. Монитор - устройство, предназначенное для вывода информации на экран.  

2. Системный блок - устройство в котором размещаются аппаратное обеспечение компьютера:  

Материнская плата,

Центральный процессор,

Оперативная память,

Карты расширений,

Блок питания,

Оптический привод,

Жесткий диск,

3. Компьютерная мышь - устройство, предназначенное для управления компьютером.  

4. Клавиатура - устройство, предназначенное для ввода информации в компьютер.

Типы компьютеров:

Настольный, стационарный, персональный компьютер (ПК, PC), десктоп (desktop)

Моноблок

Ноутбук notebook, блокнотный ПК, (иногда и laptop)

Нетбук, netbook

Планшетный ПК, tablet PC, смартфон

Неттоп, nettop

Карманные компьютеры, КПК, PDA, электронный органайзер или палмтоп

Сервер

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

Запоминающие устройства

Жесткий диск (! Часто не является периферийным устройством!)

Гибкий магнитный диск (уже не используется)

Оптические диски

Флеш-память

Стримеры

Устройства ввода

Клавиатура

Мышь

Трекбол

Тачпад

Микрофон

Сканер

Графический планшет, Световое перо

Цифровой фотоаппарат

Видео- и Веб-камера

Плата видеозахвата

Джойстик, геймпад, руль, педаль, штурвал, танцевальная платформа, …

Устройства вывода

Монитор (дисплей)

Проектор

Принтер

Графопостроитель

Встроенный динамик

Колонки

Наушники

Сетевые устройства

Модем

ADSL-модем

DVB-карта + спутниковая антенна

Сетевая карта

Адаптер WiFi

ПОДКЛЮЧЕНИЕ УСТРОЙСТВ К ПК

При подключении устройств к системному блоку необходимо в первую очередь убедиться в совместимости разъемов и наличии соответствующих соединительных кабелей.

Также необходимо убедиться, допускает ли устройство "горячее подключение" или же для его включения ПК необходимо полностью выключить.

К устройствам "горячего подключения" относятся все USB устройства, FireWire, e-SATA, HDMI и некоторые другие.

4,8(13 оценок)
Ответ:
Яна5789
Яна5789
23.12.2021

ответ: Delphi/Pascal

program Matrix24;

var

 a:array [1..10,1..10] of integer;

 Max,M, N, i, j:Integer;

 

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

 

 

for  i:=1 to M do

 begin

  writeln(i,': ');

  for j:=1 to N do

   begin

    Write(j,' : ');

    Read(a[i,j]);

   end;

 end;

 

for  j:=1 to N do

 begin

  writeln(j,': ');

  Max:=a[1,j];

  for i:=2 to M do

   begin

    if a[i,j]>Max then Max:=a[i,j];

   end;

  writeln('Масимальный элемент:',Max);

 end;

end

program Matrix24;

var

 a:array [1..10,1..10] of integer;

 Max,M, N, i, j:Integer;

 

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

 

 

for  i:=1 to M do

 begin

  writeln(i,': ');

  for j:=1 to N do

   begin

    Write(j,' : ');

    Read(a[i,j]);

   end;

 end;

 

for  j:=1 to N do

 begin

  writeln(j,': ');

  Max:=a[1,j];

  for i:=2 to M do

   begin

    if a[i,j]>Max then Max:=a[i,j];

   end;

  writeln('Масимальный элемент:',Max);

 end;

end.

4,8(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ