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

Составьте и запишите две компьютерных программы на языке программирования паскаль для решения следующих : 1. нахождение суммы всех чисел, оканчивающихся на 5 в диапазоне от 120 до 300. 2. нахождение среднего арифметического значения чисел, оканчивающихся на 6 в пределах от 15 до 100.

👇
Ответ:
1660044
1660044
06.05.2022
Задача 1.
Var
   A:integer;
   S:real;
Begin
S:=0;
For A:= 120 to 300 do
    S:=S+A;
WriteLn('S = ',S);
End.

Результат работы программы:
S = 38010

Задача 2.
Var S:real;
    n,A:integer;
Begin
n:=0;
S:=0;
For A:= 15 to 100 do
    if A mod 10 = 6 then
       Begin
       S:=S+A;
       n:=n+1
       End;
WriteLn('Sr = ',S,'/',n,' = ',S/n);
End.
4,5(2 оценок)
Открыть все ответы
Ответ:
Настя9876899
Настя9876899
06.05.2022

Списать текст, вставить пропущенные буквы, расставить знаки препинания.                        

                                      РУССКАЯ ЗИМА.

Хороши снежные зимы в Росси…! (Не)погоду см..няют ясные дни. Бл..стят на солнце глубокие сугробы скрылись (подо)льдом большие реки и маленькие реч…нки.  Пр…пор…шила зима землю снежной шубкой. Отдыхает земля набирает силу.

Наполняе(тся, ться) жизнью зимний лес. Вот простучал по сухому дереву дятел. По всему лесу отбивает дробь лесной барабан…ик. С шумом пролетит рябчик подним…(тся, ться) из снежной пыли глухарь. Стайка пестрых клестов ра(с,з)селась на ветках ели. Стоиш… и любуеш…ся как ловко они вонзают свои клювики в шишки выб…рают из них с…м..на. С су чка на суч…к перепрыгивает шустрая белка.

Вот пр…летела большая сова и подала голос. Ей отозвались другие совы. Пискнула тихонько лесная мыш… пробежала по снегу и скрылась под пнем в сугробе.  

Объяснение:

4,4(61 оценок)
Ответ:
gulim1902
gulim1902
06.05.2022

Program nnatovna;
uses crt;
const n=13;
var
  a:array [1..n] of integer;
  i,min,max,temp:integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  writeln();
  randomize;
  writeln('Элементы массива:');
  {создание и вывод массива}
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write (a[i]:5);
    end;
{ищем номера мин и мах}
  min:=1;
  max:=1;
  for i:=1 to n do
    begin
      if a[min]>a[i] then min:=i;
      if a[max]<a[i] then max:=i;
    end;
{меняем местами мин и мах элементы}
  temp:=a[min];
  a[min]:=a[max];
  a[max]:=temp;    
{вывод результата}
  writeln();
  writeln('Результат:');
  for i:=1 to n do
    write(a[i]:5);
end.

4,7(76 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ