Var i,N1,N2,M,j:integer;
begin
writeln('Введите число N1');Read(N1);
writeln('Введите число N2');Read(N2);
M:= abs(n2 - n1)+1;j:=n1;
for i:=1 to M do begin
writeln(i:3,j:3);
j:=j + 1;end;<span>end.</span>
Ответ:
ответ а
Объяснение:
сд ром диск является ресурсом откуда можно вытащить информацию
28:2=14 пар по 2 лампочки
3 состояния это i, поэтому
14 в 3 степени = 2744 разных состояния
<span>Понятия, которые друг от друга никак не зависят. Например понятия "зеленый" и "тяжелый" ты никак не сравнишь</span>
Var n,k,x: integer;
begin
repeat
readln(x);
if x<0 then n:=n+x;
if (x mod 2=1) then k:=k+1;
until x=0;
writeln('Число нечетных положительных: ',k);
writeln('Сумма отрицательных: ',n);
<span>end.</span>