20 решите 2 на языке pascal abc) ​

дано:

а = 80 дж

f = 80 н

найти: h

решение:

a=f*s

80 дж = 80 н * xx= 1 метр

a=f*s

80 дж = 80 н * x

x= 1 метр

ответ: 1 метр

С оператора mod можно получить от исходного числа единичный разряд, если делить число на 10, т.е. 123 mod 10 = 3, 524 mod 10 = 4. Если делить на сто, то можно получить еще и десятки: 123 mod 100 = 23, 524 mod 100 = 24.

С оператора div можно отбросить от числа разряды: 123 div 10 = 12, 123 div 100 = 1

Пример программы на языке PascalABC.Net:

var a, b: integer;

begin

   write('Введите двузначное число: ');

   readln(a);

   write('Введите трехзначное число: ');

   readln(b);

   writeln();

   

   writeln('Двузначное число ', a, ': ');

   writeln('Десятки: ', a div 10);

   writeln('Единицы: ', a mod 10);

   writeln();

   

   writeln('Трехзначное число ', b, ': ');

   writeln('Сотни: ', b div 100);

   writeln('Десятки: ', b div 10 mod 10);

   writeln('Единицы: ', b mod 10);

end.

1)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(a[i]);

   end;

   var sum := 0;

   for var i := 1 to 9 do

       if a[i] > 45 then

           sum += a[i];

           

   writeln('Сумма: ', sum);

end.

2)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       write('Введите ', i, ' элемент: ');

       readln(a[i]);

   end;

   var sum := 0;

   for var i := 1 to 9 do

           sum += a[i];

           

   writeln('Сумма: ', sum);

end.

3)

var a: array [1..9] of integer;

begin

   for var i := 1 to 9 do

   begin

       a[i] := random(-10, 10);

       write(a[i], ' ');

   end;

   writeln();

   var min := a[1];

   for var i := 2 to 9 do

       if (a[i] mod 2 <> 0) and (a[i] < min) then

           min := a[i];

           

   writeln('Min: ', min);

end.