Var i,k:integer;
begin;
for i:=1 to 1000 do
k:=k+i;
writeln(k);
end.
172 [8]=64+7×8+2=122 [10]
2EA [16]= 2×256+14×16+10 = 512+224+10=746 [10]
101010 [2]=2+8+32=42 [10]
Var a,b,c:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
if a>b then
if b>c then writeln('naimenshee=', c) else writeln('naimenshee=', b)
else if a>c then writeln('naimenshee=', c) else writeln('naimenshee=', a);
end.
Решение в файле. Реализовано на С++. Нужны будут объяснения, пиши подскажу
#include<iostream>
int main()
{
for (int i = 10000; i < 99999; ++i)
if (i % 133 == 125 && i % 134 == 111)std::cout << i << ' ';
}