В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
unucozi
unucozi
25.02.2020 13:54 •  Информатика

Нужно найти все временные параметры сетевого графика


Нужно найти все временные параметры сетевого графика
Нужно найти все временные параметры сетевого графика
Нужно найти все временные параметры сетевого графика

Показать ответ
Ответ:
MaveJ
MaveJ
04.12.2022 15:22

Программа:

Pascal:

№1)

var arr: array[1..10] of integer;

begin

 for var i := 1 to 10 do arr[i] := random(100);

 writeln(arr);

end.

№2)

const N = 15;

var arr: array[1..N] of integer;

 i, tmp: integer;

begin

 for i := 1 to 15 do arr[i] := random(100);

 writeln(arr);

 for i:=1 to n div 2 do begin

   tmp := arr[i];

   arr[i] := arr[N - i + 1];

   arr[N - i + 1]:= tmp;

end;

writeln(arr);

end.

№3)

const N = 20;

var

 arr: array[1..N] of integer;

 i, tmp, j: integer;

begin

 for i := 1 to N do readln(arr[i]);

 writeln(arr);

 for i := 1 to N - 1 do

   for j := 1 to N - i do

     if (arr[j] > arr[j+1]) then begin

       tmp := arr[j];

       arr[j] := arr[j+1];

       arr[j+1] := tmp;

     end;

 writeln(arr);

end.

0,0(0 оценок)
Ответ:
nadyasvetlakov
nadyasvetlakov
28.03.2021 08:35
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота