Регистрация Спросить otvet5GPT
Лолита171107
02.02.2021 03:54
Информатика
Есть ответ 👍

решить задачи по информатике, их решать нужно в Excel с формул про проценты

285
332
Посмотреть ответы 1

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

pro55555
pro55555
4,7(67 оценок)
Program dimamixali14; uses crt; const      n=10; var   s: string;   fly: text;   a: array [1..n,1..n] of integer;   i,j,k,summa: integer; begin   s: ='*** alphaeus is ***';   for i: =1 to length(s) do begin   write(s[i]);   for j: =1 to 500000 do s[i]: =s[i];   end;   writeln();   writeln('***           ok             ***');   writeln();   writeln(': ');   writeln('сформировать квадратную матрицу a(nxn), которую вывести. строки с отрицательным элементом на главной диагонали последовательно записать в файл. в конец файла дописать сумму первой и последней компонент, файл отпечатать.');   randomize;   assign(fly,'f.txt');   rewrite(fly); {заполняем и выводим матрицу}   writeln(); writeln('matrix: ');   for i: =1 to n do begin     for j: =1 to n do begin       a[i,j]: =random(101)-50;       write (a[i,j]: 3);     end;     writeln();   end;   writeln(); writeln(); {заполняем файл}   for i: =1 to n do begin     for j: =1 to n do begin       if(i=j) and (a[i,j]< 0) then         begin           for k: =1 to n do             write(fly,a[i,k]: 3);           writeln(fly, ' ');         end;     end;     end;   writeln();   writeln('file: ');   summa: =a[1,1]+a[n,n];   writeln(fly,'summa = ',summa);   s: =''; {выводим файл}   reset(fly);   while not eof (fly) do   begin     readln (fly, s);     writeln(s);   end;   close(fly); end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS