❌ВОПРОС НЕ ПО УЧЕБЕ ❌ Столкнулась с такой проблемой. У меня iOS устройство (оригинальное) , но почему я не могу купить токены подписки на твиче ( просто не высвечивается прайс) хотя токены добавили на iOS устройства
В этой проге 1,2,3 program p1; uses crt; var a:array [1..10] of integer; i,k,s,p,min,max,k2:integer; begin P:=1; s:=0; for i := 1 to 10 do begin a[i]:= random(31); write(a[i]:4); end; writeln; min:=a[1]; max:=a[1];
for i:=1 to 10 do begin
If min>a[i] then begin min:=a[i]; k:=i; end;
s:=a[i]+s; p:=a[i]*p;
If max<a[i] then max:=a[i]; K2:=i; end; writeln('МИнимальное число:',min,' номер :',k); writeln('Сумма :',s,' Произведение :',p); for i:=1 to 10 do begin If a[i] <> max then write(a[i]:3) else write(' 999'); end; writeln; writeln('Максимальное число :',max,' номер ',k2); end.
Вот 4; program p2; uses crt; var a:array [1..10] of integer; i,p:integer; begin P:=1; for i := 1 to 10 do begin a[i]:= random(60)-30; write(a[i]:4); end; writeln; p:=1; for i:=1 to 10 do begin If a[i] < 0 then p:=p*a[i]; ; end; writeln('Произведение :',p); end.
Function getSumFor(n:integer):integer;var sum, i:integer;begin sum := 0; for i:=1 to n do begin sum := sum + i; end; result := sum;end; function getSumWhile(n:integer):integer;var sum, i:integer;begin sum := 0; i := 1; while i <= n do begin sum := sum + i; i := i + 1; end; result := sum;end; function getSumRepeat(n:integer):integer;var sum, i:integer;begin i := 1; sum := 0; repeat sum := sum + i; i := i + 1; until i > n; result := sum;end; begin writeln(getSumFor(1)); writeln(getSumWhile(1)); writeln(getSumRepeat(1));end.
program p1;
uses crt;
var a:array [1..10] of integer;
i,k,s,p,min,max,k2:integer;
begin
P:=1;
s:=0;
for i := 1 to 10 do begin
a[i]:= random(31);
write(a[i]:4);
end;
writeln;
min:=a[1];
max:=a[1];
for i:=1 to 10 do begin
If min>a[i] then begin
min:=a[i];
k:=i;
end;
s:=a[i]+s;
p:=a[i]*p;
If max<a[i] then
max:=a[i];
K2:=i;
end;
writeln('МИнимальное число:',min,' номер :',k);
writeln('Сумма :',s,' Произведение :',p);
for i:=1 to 10 do begin
If a[i] <> max then
write(a[i]:3)
else write(' 999');
end;
writeln;
writeln('Максимальное число :',max,' номер ',k2);
end.
Вот 4;
program p2;
uses crt;
var a:array [1..10] of integer;
i,p:integer;
begin
P:=1;
for i := 1 to 10 do begin
a[i]:= random(60)-30;
write(a[i]:4);
end;
writeln;
p:=1;
for i:=1 to 10 do begin
If a[i] < 0 then
p:=p*a[i]; ;
end;
writeln('Произведение :',p);
end.