Регистрация Спросить otvet5GPT
sanny2
29.12.2020 01:30
Информатика
Есть ответ 👍

Дано описание переменных. выбери верные ответы. var int1, int3: integer; d: real ; s: char; begin имена переменных типы данных

216
338
Посмотреть ответы 2

Ответы на вопрос:

Niker04
Niker04
4,6(91 оценок)
Имена переменных int1, int3d s типы данных integer real char
danielan2003
danielan2003
4,7(22 оценок)
Uses crt; var  ksl,ksm: longint; a: array of integer;   i,sred,k: integer;     f: text; s: string; begin clrscr;     assign(f,'f1.txt'); reset(f); //из файла   while not eof(f) do        begin     readln(f,s);       ksm: =ksm+length(s); //считаем все символы      end;   writeln(ksm);     reset(f);   for i: =1 to ksm do            begin              if (s[i]=' ') then                      ksl: =ksl+1; //считаем все слова        end;   writeln(ksl);   reset(f); //из файла setlength(a,ksl+1);   for i: =1 to ksl do        begin            read(f,a[i]);         end; close(f); for i: =1 to ksl do          begin            if (a[i]=0) then a[i]: =a[1]+a[ksl]; // '' все нулевые компоненты значением суммы первой и последней компонент файла''         if (a[i]> 0) then               begin                        sred: =sred+a[i]; // ''найти среднее арифметическое положительных компонент''                        inc(k);                 end;                 if (a[i]< 0)then a[i]: =a[i]- abs( a[1]+a[ksl] );   // ''все отрицательные компоненты уменьшить на значение суммы''          end; rewrite(f); //в фаил for i: =1 to ksl do      begin                  write(f,a[i],' ');             end; close(f);   writeln(' sred= ',sred/10: 0: 1); end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

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

Подпишись на наш телеграмм канал

GTP TOP NEWS