Есть ответ 👍

(линейное) программирование. паскаль. легкие, пропустила много. хочу разобраться. большое за правильное решение) карточка 1. 1. вычислите дробную часть среднего арифметического трех заданных чисел. 2. составьте программу вычисления идеального веса человека по его росту, при условии. что идеальный вес (кг)=(рост(см) - 100 3. рассчитайте, сколько очков набрала команда по хоккею, если известно, что m встреч онавыиграла (2 очка), n встреч она проиграла (0 очков) и k встреч - ничья (1 очко). 4.1 дано целое число. определить является ли оно четным. 4.2 дано целое число. определить оканчивается ли оно цифрой 7. карточка 2. ( необходимо знание формул по ) 1. даны объем и массы двух тел из разных материалов. материал какого из тел имеет большую плотность? 2. известны напряжения двух не соединенных друг с другом участков электрическлй цепи и напряжения на каждом из них. по какому участку протекает меньший ток?

220
481
Посмотреть ответы 3

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

inga20062
4,6(51 оценок)

4.1 var a: integer; begin writeln ('a'); readln (a); if a mod 2=0 do writeln ( 'число четное') else writeln (' число не четное '); end.

Uses crt; var a,b,c: integer; begin read(a,b,c);
din46
4,4(57 оценок)

1)program mas; uses crt; const nmax=100; var x: array[1..nmax]of integer; i,n,b,bcol,proz: integer; begin proz: =1; repeat begin clrscr; write('введите размер одномерного массива(n),n='); read(n); end; until n< =nmax; writeln('введите значения элементов массива: '); for i: =1 to n do read(x[i]); writeln('введенный массив: '); for i: =1 to n do write(x[i],' '); writeln; write('введите число b: '); read(b); for i: =1 to n do if x[i]< b then inc(bcol); writeln('количество элементов меньших b: ',bcol); for i: =1 to n do proz: =proz*x[i]; writeln('произведение всех элементов массива: ',proz); readln; end.2)program p1; var     x: array[1..100] of integer;     max,i,n: integer; begin write('введите количество элементов='); readln(n); writeln('исходный массив'); randomize; for i: =1 to n do   begin   x[i]: =random(101)-50;   write(x[i]: 3);   if (x[i]> =max) then max: =x[i];   end; writeln; writeln('новый массив'); for i: =1 to n do   begin   if (abs(x[i])=max) and (x[i]< > max) then x[i]: =1;   if (x[i]< > max) and (abs(x[i])< > max) then x[i]: =0;   write(x[i]: 3);   end; readln end.3)var   a: array[1..15] of integer;   i: integer;   av: integer;   begin   randomize;   for i : = 1 to 15 do a[i] : = random(40) + 10;   writeln('исходный массив: ');   for i : = 1 to 15 do write(a[i], ' ');   writeln;   av : = 1;   for i : = 1 to 15 do     if a[i] mod 7 = 0 then av : = av * a[i];   if av = 1 then writeln('массив не содержит элементов , которые кратны 7! ')   else writeln('произведение равно: ', av); end.4)uses crt; const n=31; var a: array[1..n] of integer;     i: byte;     max: integer;     sr: real; begin clrscr; writeln('vvedite temperaturu po dnyam: '); sr: =0; for i: =1 to n do   begin     write(i,' maya: ');     readln(a[i]);     sr: =sr+a[i]/31;   end; clrscr; writeln('massiv temperatur: '); max: =a[1]; for i: =1 to n do   begin     write(a[i],' ');     if a[i]> max then max: =a[i];   end; writeln; writeln('samye teplye dni s temperaturoj ',max,' grad'); for i: =1 to n do if a[i]=max then writeln(i,' maya'); writeln; write('srednya temperatura=',sr: 0: 1,' grad'); readln end.5)program prog5_2; const   n = 10;   var   a     : array [1..n] of integer;   i     : integer;   imin, imax : integer;   d, c, s     : integer;   begin     {заполнение массива а случайными числами}     randomize;     for i: =1 to n do       a[i]: =random(100);     {вывод массива а на экран}   writeln('исходный массив: ');   for i: =1 to n do     write(a[i]: 6);   writeln;     {нахождение индексов наибольшего и наименьшего эемаентов массива}   imin: =1;   {индекс наименьшего элемента}   imax: =1;   {индекс наибольшего элемента}   for i: =2 to n do   begin     if a[i] < a[imin] then       imin : =i;       if a[i] > a[imax] then       imax : = i;   end;     {вывод ответа}   writeln('наименьший элемент a[',imin,']=',a[imin]);   writeln('наибольший элемент a[',imax,']=',a[imax]);     {подсчет количества и суммы чисел между минимальным и максимальным значениями}   c: =0;       {количество}   s: =0;       {сумма}   for i : =imin to imax do

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

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

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

Caktus Image

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

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

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

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

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

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

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

GTP TOP NEWS