Бейсик Python
FOR n = 1 TO 100
A(n) = n - 10
NEXT n
FOR n = 1 TO 100
B(n) = A(n)*n;
NEXT n
for n in range(1, 101):
A[n] = n - 10
for n in range(1, 101):
B[n] = A[n]*n
Паскаль Алгоритмический язык
for n : = 1 to 100
do A[n] : = n - 10;
for n : = 1 to 100 do begin
B[n]:= A[n]*n;
end;
n от 1 до 100
A[n] : = n - 10
n от 1 до 100
B[n]:=A[n]*n
for (n = 1; n <= 100; n++) {
A[n] = n - 10;
for (n = 1; n <= 100; n++) {
B[n] = A[n]*n;
Мне кажется 7 из 15 магазина...
Var s:string;
begin
for var i:=1000 to 9999 do
begin
s:=i.ToString;
if((strtoint(s[1])+strtoint(s[2])+strtoint(s[3])+strtoint(s[4]))<4)then write(i,' ');
end;
end.
Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//<span>сколько раз в неделю температура была выше нуля
</span>end;
s:=s/7;//средняя температура.
end.
Var i,x,s:integer;
begin
writeln('Вводите стоимость товаров по одному');
while i<3 do
begin
readln(x);
if x>1000 then
begin
s:=s+x;
i:=i+1;
end;
end;
writeln('s=',s);
<span>end.</span>