Написал пояснение к каждой строке
Var s,k: integer;
Begin
s := 0; // Зануляем S
for k := 4 to 8 do // Цикл от 4 до 8
s := s+6; // Происходит подсчёт заданных чисел из цикла
writeln(s); // Вывод ответа
End.
Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
<span><span>Представление информации с помощью некоторого кода</span> - Кодирование
</span>
Не уточнили язык - получите паскаль. Мог бы сделать на С++
program Znanija;
var n,i:integer;
begin
readln(n);
if n < 0 then
begin
writeln('Я не разработал программ');
exit;
end;
write('Я разработал ', n, ' ');
case n of
1:writeln('программу');
2..4:writeln('программы');
0,5..10:writeln('программ');
end;
end.
1) 77(8)=63(10)
2) 67(10)=1000011(2)
3) 7(10)= 111(2)
4) 13(10)= 1101(2)