Решить , ! 1. ученик проходит тестирование по , и информатике. найти сумму , набранную учеником. вывести заключение "хорошо", если ученик набрал не менее 13 , и "посредственно" в противном случае. 2. дано натуральное двузначное число, определить и вывести на экран большую цифру этого числа. 3. даны два натуральных числа. вывести на экран то из них, у которого последняя цифра меньше. заранее )

1. Пишешь ЕСЛИ введенное число>=13:
                           выведите ХОРОШО
Если<=13
выведите плохо.
2. Вводится ав
если остаток от деления ав на 10 больше или равен частному от деления на 10
--- Выведите остаток
Если частное от деления ав на 10 больше остатка
выведите частное

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*sin(3*x-12*x);

writeln('y равен: ', y);

end.

Либо

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*(sin3*x)-12*x;

writeln('y равен: ', y);

end.

Объяснение:

Написал 2 варианта, поскольку формула дана вам была не до конца. В ней скорее всего должны стоять где-то скобки. Если нет, то запишите эту же программу (из любых), только уберите в формуле скобки. Надеюсь объяснил понятно

Вариант по той формуле, как она дана (как я её понял

program z1;

var x: integer;

y: real;

begin

read(x);

y:=2*sin(3*x)-12*x;

writeln('y равен: ', y);

end.

pascal

Объяснение:

Задание 1

var

 i, j, mini, minj: integer;

 min: real;

 a: array [1..6, 1..8] of real;

begin

 min := 30;

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     a[i, j] := random(51) - 20;

     Write(a[i,j]:6);

     if a[i, j] <= min then begin

       min := a[i, j];

       mini := i;

       minj := j;

     end;

   end;

   WriteLn;

 end;

WriteLn('Минимальный элемент A[',mini,',',minj,']=', min);

end.

Задание 2

var

 i, j: integer;

 min: real;

 a: array [1..6, 1..8] of real;

begin

 min := 30;

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     a[i, j] := random(11) + 20;

     Write(a[i,j]:6);

     if a[i, j] <= min then min := a[i, j];

   end;

   WriteLn;

 end;

 

 for i := 1 to 6 do

   for j := 1 to 8 do

     a[i, j] := a[i, j] - min;

 WriteLn('Новый массив:');

 for i := 1 to 6 do begin

   for j := 1 to 8 do begin

     Write(a[i,j]:6);

   end;

   WriteLn;

 end;

end.