Оо 1-13 запишите значениепеременной (s или м), полученное в результатеработы следующей программы.1. ()var m, j: integer; //переменныеbeginм: = 5; for j : = 3 to 7 dom : = m + 5; writeln(m); end.​

43

Объяснение:

Обозначим искомое число как N.

В десятичном виде, шестнадцатиричному числу B соответствует число 11.

Шестнадцатиричному числу, оканчивающемуся на B, соответствует десятичное число вида 16*K+11.

N=16*K+11

Согласно условию, в десятичном виде, искомое натуральное число N должно быть двузначным.

16*K+11 >= 99

16*K >= 88

K >= 88/16

[K] >=5

Выпишем удовлетворяющие этому условию числа.

16*0+11=11

16*1+11=27

16*2+11=43

16*3+11=59

16*4+11=75

16*5+11=91

Выполним проверку следующего условия: N в пятиричном виде  должно оканчиваться на 3.

11 mod 5 = 1

27 mod 5  = 2

43 mod 5  = 3

59 mod 5 = 4

75 mod 5  = 0

91 mod 5  = 1

N=43

1)var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите количество часов в первом моменте времени');
readln(a);
writeln('Введите количество минут в первом моменте времени');
readln(b);
writeln('Введите количество секунд в первом моменте времени');
readln(c);
writeln('Введите количество часов во втором моменте времени');
readln(a1);
writeln('Введите количество минут во втором моменте времени');
readln(b1);
writeln('Введите количество секунд во втором моменте времени');
readln(c1);
s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1);
writeln(s,' секунд');
end.
2)var a,b:integer;
s:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a+b) mod 2 =0 then s:=a*b
else s:= a/b;
writeln(s);
end.
3)var b,s,n:real;
begin
writeln('Введите количество часов');
readln(n);
n:=n/3;
s:=2*power(2,(n-1));
writeln(s,' амёб');
end.
4)var a:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do
begin
a[i]:=random(11);
writeln('a[',i,']= ',a[i]);
end;
end.