В двоичной системе получается 1100100
Ответ: 3
к переменной "c" прибавить один это сокращение от c=c+1
1- program odin;
var x, y, i,p:integer;
begin
read(x,y);
p:=0;
for i:=1 to y do
p:=p+x;
writeln(p);
end.
Program zzz;
var z,x,y: real;
begin
writeln ('Введите x');
readln (x);
y:=sin(x)+0.5;
z:=x/y;
if y=0 then writeln ('Деление на ноль') else
writeln ('z=',z);
end.
2)
Program Massiv1;
var a:array[1..10] of real;
i:integer;
s:real;
begin
clrscr;
write('Введите элементы массива: ');
s:=0;
for i :=1 to 10 do
begin
readln(a[i]);
if (a[i]>0) then s:=s+1;
end;
writeln;
for i :=1 to 10 do writeln(a[i]:3:3);
writeln('Количество положительных элементов:',s);
readkey;
end.
3)
Program Massiv2;
var a:array[1..10] of integer;
i,b:integer;
begin
clrscr;
b:=2;
for i :=1 to 10 do
begin
a[i]=i+b;
b:=b+1;
write(a[i]:2);
end;
readkey;
end.