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

При яких значеннях змінних результатом виконання алгоритму обчислення значення
виразу (4*x-y)/(x+2*у) буде повідомлення:
«Обчислити неможливо»? Наведіть кілька
прикладів.​

Показать ответ
Ответ:
nikitinaani19
nikitinaani19
13.09.2022 01:04
Program Task;
Const A = 65; Z = 90; N = 20;
Var b: Array[A..Z] of Integer;
i, j, max: Byte;
s: Array[1..N] of String;
Begin
WriteLn('Введите ', N, ' строчек большими буквами на английском языке');
For i := 1 To N Do
ReadLn(s[i]);
For i := 1 To N Do
For j := 1 To Length(s[N]) Do
If (Ord(s[i][j]) >= A) And (Ord(s[i][j]) <= Z) Then
b[Ord(s[i][j])] := b[Ord(s[i][j])] + 1;
max := A;
WriteLn('В данных предложениях присутствовали такие буквы:');
For i := A To Z Do
Begin
If b[i] > 0 Then
Begin
Write(Chr(i), ' ');
If b[i] > b[max] Then
max := i;
End;
End;
WriteLn;
WriteLn('Наиболее встречалась буква ', chr(max));
ReadLn;
End.
0,0(0 оценок)
Ответ:
Helпаните
Helпаните
25.01.2023 03:10
Var
  A, B, C: array[1..15] of real;
  i, m, max_weight, b_n, c_n, N, max: integer;
  s: real;

begin
  N := 15;
  m := 10;
  max_weight := 50;
 
  writeln('ВВедите массы состава ', m, ' состоящего из ', n, ' вагонов');
  for i := 1 to n do
  begin
    write('Масса вагона № ', i, ' = ');
    readln(a[i]);
  end;
  writeln();
 
  writeln('Все вагоны:');
  for i := 1 to n do
    writeln('Вагон №', i, ' = ', a[i], ' тон');
  writeln();
 
  writeln('Порожние вагоны:');
  for i := 1 to n do
    if (A[i] <= m) then
      writeln('Вагон №', i);
  writeln();
 
  s := 0;
  writeln('Груженные вагоны:');
  for i := 1 to n do
    if (A[i] > m) then begin
      s := s + a[i];
      writeln('Вагон №', i);
    end;
  Writeln('Сумма масс груженных вагонов = ', s);
 
  {//  if s > max_weight then begin
  //    writeln('Превышение массы! Состав не будет сформирован');
  //    exit;
  //  end;}
 
  writeln;
  writeln('Новый состав:');
  s := 0;
  for i := 1 to n do
    if (A[i] > m) and (s + A[i] <= max_weight) then begin
      b_n := b_n + 1;
      s := s + A[i];
      B[b_n] := A[i];
      writeln('Вагон №', b_n, ' = ', B[b_n], ' тон');
    end
    else begin
      c_n := c_n + 1;
      C[c_n] := A[i];
    end;
 
  writeln();
  writeln('Остаток:');
  for i := 1 to c_n do
    writeln('Вагон №', i, ' = ', C[i], ' тон');
  writeln();
 
  max := 1;
  for i := 1 to b_n do
    if B[i] > B[max] then
      max := i;
 
  writeln('Максимальная масса в составе: Вагон №', max, ' = ', B[max], ' тон');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота