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

Запишите примеры на языке Паскаль (не нашёл знак модуля поэтому поставил [ ])
[x₁+x₂] + y₁/y₂ +x₁
b₂-4ac/√2a+b

Показать ответ
Ответ:
аиуоушв
аиуоушв
16.02.2022 00:52
Program lab5;
const n=5;
Var
P: array [1..n,1..n] of real;
i, j : integer; 
Begin
Randomize;
writeln('Исходный массив P:');
for i:=1 to n do 
 begin
 for j:=1 to n do
  begin
  P[i,j]:=10*random;
  write(P[i,j]:5:1);
  end;
 writeln;
 end;
for i:=1 to n do 
 for j:=1 to n do
  if j>i then P[i,j]:=0 else P[i,j]:=round(P[i,j]);
writeln('Изменённый массив P:');
for i:=1 to n do 
 begin
 for j:=1 to n do write(P[i,j]:5:1);
 writeln;
 end;
End.

Пример:
Исходный массив P:
  6.0  6.5  4.2  0.6  4.6
  5.7  8.8  0.3  6.2  9.0
  3.0  5.3  4.0  6.0  4.8
  6.0  3.0  5.0  5.3  8.7
  8.9  8.8  6.8  5.3  5.1
Изменённый массив P:
  6.0  0.0  0.0  0.0  0.0
  6.0  9.0  0.0  0.0  0.0
  3.0  5.0  4.0  0.0  0.0
  6.0  3.0  5.0  5.0  0.0
  9.0  9.0  7.0  5.0  5.0
0,0(0 оценок)
Ответ:
Rom4ik1105
Rom4ik1105
19.08.2021 13:39
//PascalABC.NET 3.1 сборка 1239
uses System;
uses System.Collections;

begin
    var d := DateTime.Today;
    repeat
        d := d.AddDays(1);
    until d.DayOfWeek = DayOfWeek.Sunday;
    
    var Sundays := new Dictionary<integer, integer>();
    
    repeat
        if Sundays.ContainsKey(d.Year) then
            Sundays[d.Year] += 1
        else
            Sundays.Add(d.Year, 1);
        
        d := d.AddDays((-7));
    until d.Year <= 1;
    
    var max := Sundays.Values.Max;
    Sundays.Where(x -> x.Value = max).Println;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота