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

Внимательно рассмотри южные материки

👇
Ответ:
нуралик
нуралик
17.04.2021
Южные материкиК группе Южных материков относятся Южная Америка, Африка, Австралия, обладающие многими общими чертами природы в силу сходства их географического положения и сопряженной истории формирования в составе Гондваны. Особое положение занимает Антарктида. Этот материк расположен целиком в Южном полушарии и является частью распавшейся Гондваны. Как осколок Южного суперконтинента Антарктида имеет явные черты сходства с другими гондванскими материками в строении поверхности (в геологическом строении и рельефе подледной поверхности). Однако особое географическое положение континента определяет многие уникальные черты его природы. В характеристике компонентов природы Южных материков Антарктиде выделяется особое место.Южные материки омываются водами всех океанов, кроме Северного Ледовитого океана. Антарктида не имеет сухопутных границ, как и Австралия, которая ближе всего связана с Евразией через своеобразный мост — острова и мелководные моря и проливы Малайского архипелага, которые традиционно относят к материку Евразии. Африка отделена от Евразии узкими Гибралтарским проливом и Красным морем. На крайнем северо-востоке на Суэцком перешейке граница между этими материками проходит по искусственному сооружению — Суэцкому каналу. Южная Америка граничит с Северной на Панамском перешейке.  Что именно? Пиши подробнее!
4,5(33 оценок)
Открыть все ответы
Ответ:
аня2942
аня2942
17.04.2021
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите численность по классам:',
      ReadInteger('Количество классов:'));
  Writeln('Число учеников в самом многочисленном классе превышает '
      'число учеников в самом малочисленном классе на ',
      a.Max-a.Min);
  Writeln('Средняя наполняемость классов равна ',Trunc(a.Average))
end.

Пример
Количество классов: 6
Вводите численность по классам: 31 29 33 24 30 29
Число учеников в самом многочисленном классе превышает число учеников в самом малочисленном классе на 9
Средняя наполняемость классов равна 29
4,7(57 оценок)
Ответ:
FoxEdit
FoxEdit
17.04.2021
Список учеников в файле data.txt(см. вложение)

//Pascal
type
  TPupils = record
    firstname, surname: string;
    schoolNumber: integer;
  end;

var
  f: text;
  s, buf: string;
  i, j, tmp: byte;
  num, countPupils: integer;
  A: array [1..200] of TPupils;
begin
  assign(f, 'data.txt');
  reset(f);
  j := 1;
  while not eof(f) do
  begin
    readln(f, buf);
    buf := buf + ' ';
    tmp := 1;

    for i := 1 to length(buf) do
    begin
      if pos(buf[i], ' ') = 0 then s := s + buf[i]
      else
      begin
        if length(s) > 0 then
        begin
        case tmp of
          1: begin  A[j].firstname := s; Inc(tmp); end;
          2: begin A[j].surname := s; Inc(tmp); end;
          3:
          begin
            Val(s, num, num);
            A[j].schoolNumber := num;
          end;
        end;
        //writeln(s);
        s := '';
        end;
      end;
    end;
    Inc(j);
  end;
  close(f);

  write('Введите № школы: ');
  readln(num);

  for i := 1 to 200 do
  begin
    if A[i].schoolNumber = num then
      //writeln(A[i].firstname, ' ', A[i].surname, ' ',
      //        A[i].schoolNumber);
      Inc(countPupils);
  end;
  writeln('Количество учеников в данной школе = ',
          countPupils);
end.
4,6(63 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ