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

Решите задачу в программе PASCALABC.NET


Решите задачу в программе PASCALABC.NET

👇
Ответ:
Mika123123
Mika123123
16.02.2021

program M;    

var a: array[1..17] of integer;  

N, i: integer;    

begin  

write('Введите N: ');  

readln(N);  

a[1] := 1;  

for i := 2 to N do  

 a[i] := a[i - 1] + 2;  

for i := 1 to N do  

 write(a[i],' ')  

end.


Решите задачу в программе PASCALABC.NET
4,7(100 оценок)
Открыть все ответы
Ответ:
mebelru
mebelru
16.02.2021
Program textFind;
uses StrUtils;
var text,buffer : String;
var tpos,lastpos,counter,biggest : Integer;
begin
  tpos := 0;
  text := '';
  while(tpos = 0) do begin
    readln(buffer);
    text += buffer;
    tpos := pos('.',buffer)
  end;
  lastpos := 1;
  tpos := PosEx(' ',text,lastpos);
  if tpos = 0 then 
    tpos := PosEx('.',text,lastpos);
  biggest := tpos-1;  lastpos := tpos+1;
  while(not (tpos = 0)) do begin
    tpos := PosEx(' ',text,lastpos);
    if tpos = 0 then
        tpos := PosEx('.',text,lastpos);
    if (tpos-lastpos) > biggest then
        biggest := tpos-lastpos; 
   lastpos := tpos+1;
  end;
  lastpos := 1;  counter := 0;
  tpos := PosEx(' ',text,lastpos);
  if tpos = 0 then
    tpos := PosEx('.',text,lastpos);
  while(not (tpos = 0)) do begin
    if (tpos-lastpos) = biggest then
        counter += 1;
    lastpos := tpos + 1;
    tpos := PosEx(' ',text,lastpos);
    if tpos = 0 then
        tpos := PosEx('.',text,lastpos);
  end;
writeln(counter);
end.
4,7(77 оценок)
Ответ:
yanaqwe
yanaqwe
16.02.2021
План введение 1. понятие информационной культуры 2. компоненты информационной культуры 3. проблемы формирования информационной культуры заключениевведение место образования в жизни современного общества во многом определяется возрастающей ролью знаний, информации, что отразилось в концепциях информационного общества, становлении информационной цивилизации, информатизации образования. в контексте происходящих инновационных изменений в обществе, вызванных повсеместным внедрением компьютерных технологий, одной из актуальнейших развития современного образования в россии и за рубежом является информатизация и реализация тенденций развития образования в условиях информационного общества. быстрому развитию компьютерных технологий люди имеют доступ к самой разнообразной информации в любой точке планеты, обмениваются информацией, общаются в режиме реального времени. для свободной ориентации в информационных потоках современный специалист любого профиля должен уметь получать, обрабатывать и использовать информацию с компьютеров, телекоммуникаций и других средств связи. но для этого необходимо знать правила навигации по огромному количеству доступной информации и обладать определенной информационной культурой. 1. понятие информационной культуры информационная культура - это новый тип общения, возможность свободного выхода личности в информационное бытие; свобода выхода и доступ к информационному бытию на всех уровнях от до локального, поскольку внутринациональный, внутригосударственный тип информационного бытия так же несостоятелен, как и национальная наука; новый тип мышления, формирующийся в результате освобождения человека от рутинной информационно-интеллектуальной работы, среди черт, определяющих его, уже сегодня ярко проявляется ориентация последнего на саморазвитие и самообучение. в понятии "информационная культура" ведущим является слово "культура", именно оно заключает в себе наибольшую смысловую нагрузку. исследования виднейших отечественных культурологов позволяют определить культуру как сложное понятие, означающее результат, процесс, способ, отношение, норму, систему деятельности, единственным субъектом и преимущественным объектом которой является человек. информационная культура – это [михайловский в. н., с. 56]: - новый тип общения, возможность свободного выхода личности в информационное бытие;- свобода выхода и доступ к информационному бытию на всех уровнях от до локального, поскольку внутринациональный, внутригосударственный тип информационного бытия так же несостоятелен, как и национальная наука
4,4(39 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ