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

Составить программы в паскале: 1. составить алгоритм и программу для нахождения значения выражения: y=(a mod b)*(c div b) 2. напишите программу для вычисления выражения: x=(а + (d - 12) *3) * (с - 5*k), значения переменных а, d, с и k вводятся с клавиатуры.

👇
Ответ:
LEVATOR
LEVATOR
02.08.2020
1.
Var a,b,c : Integer;
Begin
  Readln(a,b,c);
  Writeln((a mod b)*(c div b));
end.

2.

Var a,d,c,k : Integer;
Begin
  Readln(a,d,c,k);
  Writeln((a+(d-12)*3)*(c-5*k));
end.
4,5(94 оценок)
Открыть все ответы
Ответ:
Faza1337
Faza1337
02.08.2020
1)function first(k,l,m,n:integer):boolean;
 begin
  if (((k mod 2=0) and (l mod 2<>0)) or ((l mod 2=0) and (k mod 2<>0)))=(((m mod 2=0) and (n mod 2<>0)) or ((n mod 2=0) and (m mod 2<>0))) then first:=true else first:=false;
end;

2)function second(k,l,m,n:integer):boolean;
 begin
  if (k=m) or (l=n) or (((k+1)=m) and ((l+1)=n)) or (((k+2)=m) and ((l+2)=n)) or (((k+3)=m) and ((l+3)=n)) or (((k+4)=m) and ((l+4)=n)) or (((k+5)=m) and ((l+5)=n)) or (((k+6)=m) and ((l+6)=n)) or (((k-1)=m) and ((l-1)=n)) or (((k-2)=m) and ((l-2)=n)) or (((k-3)=m) and ((l-3)=n)) or (((k-4)=m) and ((l-4)=n)) or (((k-5)=m) and ((l-5)=n)) or (((k-6)=m) and ((l-6)=n)) or (((m+1)=k) and ((n+1)=l)) or (((m+2)=k) and ((n+2)=l)) or (((m+3)=k) and ((n+3)=l)) or (((m+4)=k) and ((n+4)=l)) or (((m+5)=k) and ((n+5)=l)) or (((m+6)=k) and ((n+6)=l)) or (((m-1)=k) and ((n-1)=l)) or (((m-2)=k) and ((n-2)=l)) or (((m-3)=k) and ((n-3)=l)) or (((m-4)=k) and ((n-4)=l)) or (((m-5)=k) and ((n-5)=l)) or (((m-6)=k) and ((n-6)=l)) or (((k-1)=m) and ((l+1)=n)) or (((k-2)=m) and ((l+2)=n)) or (((k-3)=m) and ((l+3)=n)) or (((k-4)=m) and ((l+4)=n)) or (((k-5)=m) and ((l+5)=n)) or (((k-6)=m) and ((l+6)=n)) or (((k-1)=m) and ((l+1)=n)) or (((k-2)=m) and ((l+2)=n)) or (((k-3)=m) and ((l+3)=n)) or (((k-4)=m) and ((l+4)=n)) or (((k-5)=m) and ((l+5)=n)) or (((k-6)=m) and ((l+6)=n)) or (((m-1)=k) and ((n+1)=l)) or (((m-2)=k) and ((n+2)=l)) or (((m-3)=k) and ((n+3)=l)) or (((m-4)=k) and ((n+4)=l)) or (((m-5)=k) and ((n+5)=l)) or (((m-6)=k) and ((n+6)=l)) or (((m-1)=k) and ((n+1)=l)) or (((m-2)=k) and ((n+2)=l)) or (((m-3)=k) and ((n+3)=l)) or (((m-4)=k) and ((n+4)=l)) or (((m-5)=k) and ((n+5)=l)) or (((m-6)=k) and ((n+6)=l)) then second:=true else second:=false;
 end;
4,6(6 оценок)
Ответ:
валерия858
валерия858
02.08.2020
Const
  n = 10;

var
  a: array [1..n, 1..n] of integer;
  i, j, min: integer;

begin
  Randomize;
  Writeln('*** Исходная матрица ***');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin a[i, j] := Random(101) - 50; Write(a[i, j]:4) end;
    Writeln
  end;
  { Собственно, замена }
  for i := 1 to n do
  begin
    min := 32767;
    for j := 1 to n do
      if min > a[i, j] then min := a[i, j];
    a[i, n - i + 1] := min
  end;
  { Результат }
  Writeln('*** Результирующая матрица ***');
  for i := 1 to n do
  begin
    for j := 1 to n do Write(a[i, j]:4);
    Writeln
  end
end.

Тестовое решение:
*** Исходная матрица ***
  40   7  17 -35  21   2  28   9   6  22
 -18 -10 -26 -21  12   2 -40   7  32 -25
 -40 -34 -40  16  15 -37 -36  40   7  -3
  50 -15 -11  43 -49 -48 -46 -10  48 -31
 -26   3  25  38 -39  14   9 -20  46   7
 -29 -14 -15 -50  39  23  -4 -49   1   7
 -13  39 -49 -42  22  47 -49 -19 -23  10
  -2  21   9  12 -49   8  -8 -27   5 -50
   5  35  44 -50 -25  14 -50 -12 -46 -21
   7 -47  40  -9  33 -15   1  17 -35 -36
*** Результирующая матрица ***
  40   7  17 -35  21   2  28   9   6 -35
 -18 -10 -26 -21  12   2 -40   7 -40 -25
 -40 -34 -40  16  15 -37 -36 -40   7  -3
  50 -15 -11  43 -49 -48 -49 -10  48 -31
 -26   3  25  38 -39 -39   9 -20  46   7
 -29 -14 -15 -50 -50  23  -4 -49   1   7
 -13  39 -49 -49  22  47 -49 -19 -23  10
  -2  21 -50  12 -49   8  -8 -27   5 -50
   5 -50  44 -50 -25  14 -50 -12 -46 -21
 -47 -47  40  -9  33 -15   1  17 -35 -36
4,4(8 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ