процессор обрабатывает информацию в двоичном коде (ячейки процессора могут принимать значение или 1 - заряжена, или 0 - не заряжена.)
1) var k:integer; begin for k:=1 to 5 do write(i*2:4); readln end.
2) begin writeln((10+15)*(15-10+1)/2); readln end. или begin writeln(75); readln end.
3) var a,n:integer; begin readln(n,a); if n mod a = 0 then writeln('делится нацело') else writeln('не делится нацело'); readln end.
4) var n:integer; begin readln(n); writeln(trunc((sqrt(4*(n+1)+1)-1)/2+0.9999)); readln end;
Ответ:
program kod;
var
a: array [1..10] of Integer;
i, p: Integer;
begin
for i:=Low(a) to High(a) do a[i]:=-40+Random(91);
p:=1;
for i:=Low(a) to High(a) do if (a[i]>0) and (a[i] mod 7=0) then p:=p*a[i];
end.
Объяснение:
У меня второй вариант решения. Размерность массива: [1..10] можно любую делать
Объяснение:
во вложениях...
^ – у меня знак не ставится, но выполняет свои действия, у себя его ставьте!