1)01001100=0•8+1•8+0•8+0•8⁴+1•8³+1•8²+0•8¹+0•8°=0+262144+512+8=262664
2)00010101=0•8+0•8+0•8+1•8⁴+0•8³+1•8²+0•8¹+1•8°=0+0+0+4096+0+64+0=4160
Const
n=10;
var
m:array[1..n] of integer;
a,p,i:integer;
begin
Write('Введите a,p: ');
Read(a,p);
for i:=1 to n do
begin
m[i]:=a+p*(i-1);
Write(m[i],' ')
end;
Writeln;
end.
Тестовое решение
Введите a,p: -5 8
-5 3 11 19 27 35 43 51 59 67
var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
Program output;
Var a:integer;
begin
writeln('Сколько вам лет?');
readln(a);
writeln('В возрасте ',a,' лет, по статистике, жизнь преподносит сюрпризы');
end.
Проверь и отпиши