Ответ:
Объяснение:
Верно, но только как вычислять количество циклов в графах я не знаю сори.
Var K, M, H: longint;
Begin
WriteLn('Введите номер секунды');
ReadLn(K);
H:=K div 3600;
M:=(K-H*3600) div 60;
K:=K-H*3600-M*60;
WriteLn('Прошло часов: ', H, '; минут: ', M, '; секунд: ', K);
Sleep(5000);
End.
If M<=15 then M:=2*Sqrt(N) else M:=N-3;
Ответ: Объяснение:
8E₁₆ = E*16⁰ + 8*16¹ = 142₁₀
123₈ = 3*8⁰ + 2*8¹ + 1*8² = 83₁₀
34₈ = 4*8⁰ + 3*8¹ = 28₁₀
101₂ = 1*2⁰ + 0*2¹ + 1*2² = 5₁₀
13₄ = 3*4⁰ + 1*4¹ = 7₁₀
32₈ = 2*8⁰ + 3*8¹ = 26₁₀
1A₁₆ = A*16⁰ + 1*16¹ = 26₁₀
3B₁₆ = B*16⁰ + 3*16¹ = 59₁₀
{1}
const whereInput = 'C:\Users\1\Desktop\1.txt'; // <== путь файла
var
input: text;
n, n1, i, sum: longint;
begin
assign(input, WhereInput);
reset(input);
readln (input, n);
n1:=0; sum:=0;
for i:=1 to n do
begin
read (input, n1);
inc (sum, n1);
end;
close (input);
write ('Среднее арифметическое: ', sum/n);
end.
{2}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
input: text;
n: longint;
ch: char;
begin
assign(input, WhereInput);
reset(input);
n:=0;
while not eof(input) do
begin
read (input, ch);
inc (n);
if eoln(input) then readln(input);
end;
close (input);
write ('Символов в файле: ', n);
end.
{3}
const whereInput = 'C:\Users\1\Desktop\1.txt';
var
input: text;
n, i: longint;
ch: char;
begin
assign(input, WhereInput);
reset(input);
i:=0; n:=0;
while not eof(input) do
begin
read (input, ch);
inc (n);
if eoln(input) then
begin
readln(input);
inc (i);
writeln ('Символов в ', i, ' строке: ', n);
n:=0;
end;
end;
close (input);
end.